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ABSTRACT 


The  branch-and-bound  technique  has  been  the  basis  for  algorithms  to 
solve  both  the  mixed  integer  linear  program  (having  linear  objective 
function,  linear  constraints,  and  integrality  restrictions  on  some 
variables)  and  the  concave  nonlinear  program  (having  a separable  con- 
cave objective  function  and  linear  constraints).  The  subprograms  for 
each  of  these  branch-and-bound  algorithms  are  linear  programs  with 
simple  upper  bounds. 

In  Volume  1,  a new  branch-and-bound  algorithm  is  presented  for  the 
composite  mixed  integer,  concave  nonlinear  program.  This  integer  con- 
cave (IC0N)  algorithm  has  been  implemented  in  the  form  of  a computer 
program  coded  in  FORTRAN.  A guide  to  the  use  of  the  computer  program 
together  with  examples  of  its  application  are  included  in  Volume  1. 
Documentation  of  the  computer  program  is  included  in  Volume  2. 
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FOREWORD 


Optimization  problems  involving  integer-valued  decision  variables 
occur  frequently  in  operations  research  and  in  systems  analysis.  Many 
cost-effectiveness  analyses  performed  within  the  Department  of  Defense 
are  optimization  problems  of  this  type.  Specific  applications  related 
to  amphibious  operations  occur  in  mine  warfare,  logistics,  and  fire 
support.  This  report  presents  a new  method  for  solving  a large  class 
of  integer  nonlinear  optimization  problems. 

The  material  presented  here  implements  ideas  developed  during  the 
author's  program  of  studies  in  the  Department  of  Operations  Research, 
School  of  Engineering  and  Applied  Science,  The  George  Washington 
University,  Washington,  D.  C.  Support  for  this  research  in  integer  non- 
linear optimization  and  the  development  of  computational  algorithms  has 
been  provided  by  the  Naval  Surface  Weapons  Center's  Independent  Research 
Program.  The  author  is  presently  involved  in  surface  warfare  applica- 


tions of  this  optimization  technique. 
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SOLUTION  OF  THE 
INTEGER  CONCAVE  PROGRAM 
USING  THE  IC0N  ALGORITHM 

VOLUME  2 


E I 

1.  INTRODUCTION 

The  IC0N  branch-and-bound  algorithm  has  been  implemented  in  the 
form  of  a computer  program  coded  in  FORTRAN  for  the  CDC  6700  computer 
system.  Appendices  A and  B of  Volume  1 describe  the  input  data  and 
the  user  subroutines  which  are  required  by  the  program.  Appendix  C of 
Volume  1 provides  descriptive  examples  of  input  data  and  user  sub- 
routines for  three  test  problems.  Volume  2 includes  that  additional 
information  which  is  needed  to  fully  document  the  computer  program. 

Although  the  computer  program  for  the  IC0N  algorithm  was  developed 
for  use  on  the  CDC  6700  computer,  a special  effort  was  made  to  assure 
that  the  programming  techniques  utilized  would  be  compatible  with  a 
wide  variety  of  computers.  Minimal  effort  should  be  required  to  con- 
vert the  program  for  use  on  other  computers  having  a FORTRAN  compiler. 

The  IC0N  algorithm,  like  many  branch-and-bound  algorithms,  re- 
quires substantial  amounts  of  computer  storage  for  most  efficient 
operation.  In  the  CDC  6700  computer  system,  the  availability  of  a 
random  access  mass  storage  device  fulfills  this  requirement.  The  CDC 
6700  system  subroutines  which  are  required  in  order  to  utilize  this 
capability  are  described  in  this  report.  Other  computers  possess 
similar  capabilities  to  which  the  computer  program  can  be  readily 
adapted. 

Appendix  A provides  the  general  flow  schematics  on  which  the 
computer  program  is  based.  Appendix  B gives  the  definitions  of  param- 
eters and  arrays  utilized  in  the  program.  Aspects  of  programming 

1 
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technique  are  discussed  in  Appendices  C and  D.  Appendix  C deals  with 
the  use  of  mass  storage  for  the  branch-and-bound  list  while  Appendix  D 
deals  with  the  representation  and  solution  of  subprograms.  The  sub- 
routines which  comprise  the  IC0N  algorithm  as  well  as  the  system  sub- 
routines which  are  used  by  the  algorithm  are  described  in  Appendix  E. 
Finally,  Appendix  F provides  a listing  of  the  computer  code. 
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The  general  flow  schematics  for  the  IC0N  branch-and-bound  algorithm 
are  presented  in  this  appendix.  Figure  1 shows  the  basic  sequence  of 
steps  which  are  performed  when  Method  1 is  used,  and  Figure  2 shows  the 
sequence  when  Method  2 is  used.  Methods  1 and  2 are  discussed  in 
Volume  1. 

The  general  flow  schematics  shown  in  Figures  1 and  2 agree  exactly 
for  phase  2 of  the  branch-and-bound  algorithm.  The  schematic  of  Figure 
1 can  be  regarded  as  being  embedded  in  the  schematic  of  Figure  2 if  the 
test  "Phase  = 1?"  in  boxes  6,  18  and  28  of  Figure  2 is  replaced  by  the 
test  "Phase  = 1 and  the  variable  best  upper  bound  method  is  in  use  ?" 
With  this  replacement.  Figure  2 represents  a general  flow  schematic  for 
the  computer  program  implementing  the  ICdN  algorithm. 
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FIGURE  1 


FLOW  SCHEMATIC  FOR  THE  IC0N  BRANCH- AND- BOUND  ALGORITHM 


FIGURE  2 


FLOW  SCHEMATIC  FOR  THE  IC$N  BRANCH-AND- BOUND  ALGORITHM 
USING  THE  VARIABLE  BEST  UPPER  BOUND  METHOD 
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FIGURE  2 (Continued) 
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Update  the  best  upper  bound. 
If  in  phase  I,  merge  the  tub- 
list  into  the  list  and  enter 
phase  2. 


Bait  the  list. 


Store  node  L in  the  sublist 
(when  in  phase  I and  lotrer 
bound  less  than  best  upper 


bound ) or  in  the  listfotherwise). 
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FIGURE  2 (Continued) 
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APPENDIX  B 


PARAMETERS  AND  ARRAYS 


The  parameters  and  arrays  used  in  the  IC0N  branch-and-bound 
algorithm  are  described  in  this  appendix.  Fixed  storage  consists  of  all 
parameters  and  two  arrays  (arrays  IMASS2  and  IMASS3)  which  are  located 
in  labeled  common  storage.  All  other  arrays  are  given  variable  dimen- 
sions, with  the  actual  value  of  these  dimensions  being  assigned  during 
program  execution. 

The  use  of  variable  dimensions  results  in  the  minimization  of  the 
core  storage  required  during  a computer  run,  an  important  factor  in  the 
CDC  6700  computer  system  where  the  cost  of  a computer  run  is  proportional 
to  the  amount  of  core  storage  used.  A further  benefit  from  variable 
dimensioning  is  the  elimination  of  artificial  limits  on  individual  pro- 
blem parameters  (such  as  the  number  of  variables,  N,  or  the  number  of 
constraints,  M)  which  typically  result  when  fixed  dimensions  are 
assigned  in  a computer  code.  The  use  of  variable  dimensioning  thus 
results  both  in  reduced  running  cost  and  in  program  flexibility,  where 
either  small  or  large  problems  can  be  solved  with  the  only  changes  being 
in  the  user  supplied  subroutines. 
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FIXED  STORAGE 


Exhibit  1 shows  the  labeled  commons  used  in  the  IC0N  branch-and- 
bound  algorithm.  C0MM0N/PO/  consists  of  a set  of  pointers  used  in  con- 
junction with  the  variable  dimensioning  of  arrays  (parameters  Nil 
through  NI12  and  parameters  NF1  through  NF24)  and  in  conjunction  with 
the  branch-and-bound  list  (parameters  NIMS2  and  NFMS3) . C0MM0N/P1/ 
consists  of  the  control  parameters  discussed  in  Appendix  A,  Volume  1. 

C0MM0N/P2/  consists  of  those  parameters  which  are  used  repeatedly 
in  the  algorithm.  These  are; 


Variable 


EPSI  and  EPSIM 

BIGN 

BEGTM 

Ml,  M2  and  M3 

M4 

Nl 

MP1 


Description 


Tolerances  (10  ^ end  -10^)  used  to  test  if  a 
number  is  zero  within  roundoff  error 

A large  number  (10^®^)  used  in  place  of  + 05 

The  clock  time  at  which  the  branch-and-bound 
algorithm  commenced  the  processing  of  a given 
program 

The  number  of  less  than  or  equal,  equality,  and 
greater  than  or  equal  constraints  in  the  program^ 

= M2  + M3,  the  number  of  artifical  variables 
associated  with  the  program 

= N + (M3  + Ml)  + (M2  + M3),  the  total  number  of 
variables  associated  with  the  program  including 
slack,  surplus  and  artifical  variables 

= M + 1,  the  number  of  basic  variables  in  a one 
phase  linear  program,  and  the  position  of  the 
linear  programming  phase  2 objective  function 
among  the  basic  variables 


^See  the  discussion  of  the  constraint  matrix  and  right-hand-side 
vector  in  Appendix  A,  Volume  1. 
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EXHIBIT  I 


LABELED  COMMON  STORAGE 


COMPON/PO/NIl,NT2,NI3,NI4,NT9tNT6,NI7,NI8,NI9,imO,NIll,NT12, 

1 NIMS2,NFl,NF2,NF3,NF4,NF5,NF6,NF7,NF8.NF9,NF10,NFllf 

* NF12,NF13,NF14,  NF18,NF16,NF17,NF18, NF t9, NF20 « NF 21 , NF 22, 

3 MF23,NF2i,,WFHS3 

COMMON/P1/N,M,ITYPF,NST°AT,NOOBL1,N8VRL1,NTITE1,NODRL2.N8VRL2, 

1 NTITE2,MXLISTtLTSTO°,ITAPE,TFB,MX3TER.N8!NV,IOUTPT, 

2 ITRACE,HST*RT,TIME1,TOLI,TOL2,PCRUB,»LPH*IIO I 
COMPON/P2  7EP9I,EPSrH,BTr,N,BEr,TM,Hl,M2,M3,**4,Hl,HPl,t«P2fNM3.NmH2, 

1 MH1M3,N1P2,NP1,NSUH»NTC.H10 

C0HM0N/P3/N0DN0T,1)N0T,IRU90o,IPHASF,N00RIIL,NBVRUL,NTIGHT,NLIST, 

1 NLISTS,NFEA9,LSTMX, itrtot, ttrmax ,RLB, NBRNOO.PBRNOO, 

2 MBRVAP,NUPDWN,X8<>><OD,TBR*O0,Mn0E,lN90E,Z,B0UNDL,90U*40U, 

3 TSIG.TFEAS.IBRVPl.TUPnNl , XB»VR1 . IBRVR2, IUP0N2 ,XB«VR2, 

4 L10,NITFR,N8INV,M7, TPHASF . NPH ASE . NN3N7, I ALGO, IEOJ 
C0MH0N/P4/S  AVE ,K BRAN, XI 

C0HM0N/P5  7IROUN1) 

COMMON/AO/IMASS2 llOOt),IHASS3(1001) 
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Variable  Description 


= M + 2,  the  number  of  basic  variables  in  a two 
phase  linear  program,  and  the  position  of  the 
linear  programming  phase  1 objective  function 
among  the  basic  variables 

= N + M3,  a parameter  used  in  subroutines  GETC0L 
and  0BJ1 

= N - Ml  - M2,  a parameter  used  in  subroutine 
GETC0L 

NM1M3  = N + M?  + M3,  the  total  number  of  variables 

excluding  the  artificial  variables 

N1P2  = N1  + 2,  the  total  number  of  variables  plus  the 

linear  programming  phase  1 and  phase  2 objective 
functions 

= N + 1,  a parameter  used  in  subroutines  B0X2, 
B0X15  and  0BJ1 

The  total  number  of  nonzero  entries  in  the  con- 
straint matrix* 

The  number  of  constants  in  the  table  of  constants 
for  the  constraint  matrix* 

The  position  of  the  objective  function  (either 
MPl  or  MP2)  in  the  current  phase  of  the  linear 
program 

C0MM0N/P3/  consists  of  those  parameters  which  are  required  through- 
out the  branch- and-bound  algorithm.  These  are: 

Variable  Description 

N0DN0T  The  node  number  corresponding  to  the  current  best 

upper  bound 

UN0T  The  current  best  upper  bound 


^See  the  discussion  of  the  constraint  matrix  and  right-hand-side 
vector  in  Appendix  A,  Volume  1. 


NPl 

NSUM 

NTC 

M10 


MP2 

NM3 

NM1M2 
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Variable 

IBUB0P 

LPHASE 

N0DRUL 

NBVRUL 

NIGHT 

NLIST 

NLISTS 

NFEAS 

LSTMX 

ITRT0T 

ITRMAX 

BLB 

NBRN0D 

PBRN0D 


Description 

Indicator  for  the  variable  best  upper  bound 
method  (0  = do  not  use  the  method;  1 = use  the 
method) 

Current  phase  of  the  branch- and-bound  algorithm 
(1  = no  feasible  point  has  yet  been  determined; 

2 = a feasible  point  has  been  determined  and  the 
current  best  upper  bound  represents  a feasible 
point) 

The  current  node  selection  rule  according  to  the 
phase  of  the  branch- and-bound  algorithm 

The  current  branching  variable  selection  rule 
according  to  the  phase  of  the  branch- and -bound 
algorithm 

The  current  limit  tightening  rule  according  to 
the  phase  of  the  branch- and-bound  algorithm 

Number  of  nodes  currently  in  the  branch- and-bound 
list 

Number  of  nodes  currently  in  the  branch- and-bound 
sublist 

The  current  total  number  of  nodes  for  which  the 
corresponding  subprogram  required  complete 
solution 

The  current  maximum  size  attained  by  the  branch- 
and-bound  list 

The  current  total  number  of  linear  programming 
iterations  performed 

The  current  maximum  number  of  linear  programming 
iterations  performed  along  any  single  branch  of 
the  branch- and-bound  tree 

The  best  lower  bound 

The  node  number  of  the  branching  node 

The  processing  order  number  associated  with  the 
branching  node 
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Variable 

NBRVAR 

NUPDWN 

XBRN0D 

TBRN0D 

N0DE 

LN0DE 

Z 

B0UNDL 

B0UNDU 

TSIG 

IFEAS 

IBRVR1 

IUPDN1 

XBRVR1 

IBRVR2 

IUPDN2 


Description 

The  branching  variable  associated  with  the  branch- 
ing node 

The  direction  for  continued  branching  (when  the 
node  selection  rule  is  the  LIFO  rule)  for  the 
branching  node 

The  value  of  the  branching  variable  in  the  solu- 
tion corresponding  to  the  branching  node 

The  constant  associated  with  the  subprogram 
for  the  branching  node 

The  current  node  number 

Indicator  for  the  current  node  (1  ■=  the  lower 
node  emanating  from  the  branching  node;  2 ■ the 
upper  node  emanating  from  the  branching  node) 

The  optimal  objective  function  value  in  a sub- 
program 

The  lower  bound  for  the  current  node 

The  upper  bound  for  the  current  node 

The  constant  associated  with  the  subprogram  for 
the  current  node 

Indicator  as  to  the  feasibility  with  respect  to 
the  master  problem  of  the  solution  to  the  current 
subprogram  (0  = not  feasible;  1 = feasible) 

Branching  variable  selection  under  the  first 
branching  variable  selection  strategy 

The  direction  for  continued  branching  correspond- 
ing to  branching  variable  IBRVR1 

The  value  of  the  branching  variable  IBRVR1 

Branching  variable  selection  under  the  second 
branching  variable  selection  strategy 

The  direction  for  continued  branching  correspond- 
ing to  branching  variable  IBRVR2 
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XBRVR2  The  value  of  the  branching  variable  IBRVR2 

L10  The  number  of  nonbasic  variables  associated  with 

the  current  subprogram  tableau 

NITER  A counter  for  the  number  of  linear  programming 

iterations  which  have  been  performed  to  reach  the 
current  subprogram  tableau 

NBINV  A counter,  similar  to  NITER,  for  the  number  of 

linear  programming  interactions  which  have  been 
performed  since  the  last  basis  reinversion 

M7  The  number  of  basic  variables  associated  with  the 

current  subprogram  tableau  (either  M + 1 or 
M + 2) 

IPHASE  Indicator  of  the  method  being  applied  to  solve 

the  current  subprogram  (1  = one  phase  method; 

2 = two  phase  method) 

NPHASE  The  current  phase  of  the  method  being  applied  to 

solve  the  current  subprogram  (when  IPHASE  = 1, 
NPHASE  is  not  needed  and  is  set  to  0;  when 
IPHASE  = 2,  NPHASE  is  set  to  1 or  2) 

NM3M7  = N + M3  + M7,  the  number  of  basic  and  nonbasic 

variables  associated  with  the  current  subprogram 
tableau 

IALG0  The  linear  programming  algorithm  to  be  applied  to 

move  to  an  optimal  tableau  for  the  current  sub- 
program (1  = primal  algorithm;  2 = dual  simplex 
algorithm) 

IE0J  Indicator  for  the  tableau  resulting  from  the 

application  of  a linear  programming  algorithm 
(0  = optimal;  1 = primal  infeasible;  2 = primal 
unbounded;  3 = dual  value  exceeds  the  current 
best  upper  bound;  4 = maximum  number  of  linear 
programming  iterations  exceeded) 

C0MM0N/P4/  consists  of  three  parameters  which  are  used  as  temporary 

storage  in  subroutine  B0X15.  C0MM0N/P5/  consists  of  a single  parameter 
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which  is  set  in  subroutine  INPUT3  and  used  in  subroutine  B0X17.  It  is 
used  to  indicate  whether  or  not  the  objective  function  is  an  integer 
valued  function  for  a mixed  integer  linear  program.  C0MM$N / AO / con- 
sists of  two  arrays  used  in  conjunction  with  the  branch-and-bound  list. 


VARIABLE  STORAGE 


Arrays  IF  and  F are  assigned  fixed  dimensions  in  program  MAIN 
compatible  with  the  program  or  programs  to  be  solved.  These  two  arrays 
are  in  turn  subdivided  within  the  branch-and-bound  algorithm  into  the 
various  integer  arrays  and  floating  point  arrays  required  to  solve  a 
program.  This  subdivision  varies  from  program  to  program  depending 
upon  the  program  structure  as  specified  in  the  input. 

Exhibit  2 shows  how  the  variable  dimensioning  of  arrays  is 
accomplished.  Program  MAIN  transfers  control  to  subroutine  IC0N,  at 
the  same  time  passing  the  locations  of  arrays  IF  and  F together  with 
the  corresponding  dimensions  NT  and  NF  as  shown  at  line  1 of  subroutine 
IC0N.  These  two  arrays  are  dimensioned  at  line  18  of  subroutine  IC0N. 

At  lines  24-25,  control  is  transferred  to  subroutine  B0X1  which  reads 
the  input  for  the  branch-and-bound  algorithm  and  allocates  the  storage 
occupied  by  the  arrays  IF  and  F to  the  various  integer  and  floating 
point  arrays  needed  in  the  branch-and-bound  algorithm.  This  allocation 
is  accomplished  by  developing  dimensions  ND1  through  ND11  for  these 
arrays  and  by  developing  pointers  Nil  through  NI12  for  the  integer 
arrays  and  pointers  NFl  through  NF24  for  the  floating  point  arrays. 

The  subsequent  use  of  these  variable  dimensioned  arrays  is  exemplified 
by  the  call  to  subroutine  B0X7  at  line  43  of  subroutine  1C0N.  The  first 
location  of  the  eighth  integer  array  is  IF(NI8)  and  the  first  location 
of  the  thirteenth  floating  point  array  is  F(NF13) . It  happens  that 
both  of  these  arrays  have  the  same  dimension,  ND10.  The  nomenclature 
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EXHIBIT  2 


EXAMPLE  OF  VARIABLE  DIMENSIONING 


SUBROUTINE  ICON  IIF.F.NI.NF)  ICONOOOl 

C BRANCH— A NO- BOU NO  ALGORITHM  FOR  THE  INTEGER  CONCAVE  PROGRAM.  ICONQ002 

COMMON/ PO /N I l«NI2»NI3»NI4»NI5»NI6»NI7»NI8»NTB»NItl)»NIll»HI12»  ICON0003 

1 NIMS2,NFltNF2,NF3,NF4,NF5,NF6,NFT,NF8,NFB,NF10.NFll,  ICON0004 

2 NF12,NF13,NFll,,NF15,NF16.NFI7,NF18,NFlB,NF20.NF21tNF22,  ICON0005 


NF23.NF24.NFMS3 


ICON0006 


DIMENSION  IF (Nit .F  CNF) 


ICON0018 


100  CALL  BOX1  (IFtF»NI»NF.N01«ND2»ND3»N04.N05tMD6,N07 tN08.N09.N010*  ICON0024 
1 NOll « N0HS2. NDMS3I  ICON0025 


CALL  BOX7  (IF(NI8).F(NF13I .N010I 


ICON0043 


ICON0098 


SUBROUTINE  B0X7  « INUSE, CAPP, N010I 
C DETERMINE  THE  BEST  LOWER  80UN0. 


80X70001 
80X7000  2 


DIMENSION  INUSE »NO10l 
DIMENSION  CAPPIN010I 


BOX7001 3 
00X70014 


80X70024 


associated  with  these  arrays  is  modified  as  shown  at  line  1 of  sub- 
routine B0X7.  The  labels  INUSE  and  CAPP  are  mnemonics  which  reflect 
the  functions  performed  by  these  arrays  within  the  branch-and-bound 
algorithm.  The  arrays  are  dimensioned  at  lines  13-14  of  subroutine 
B0X7  and  are  manipulated  within  this  subroutine  in  a manner  no  different 
from  that  of  an  array  having  fixed  dimensions. 

The  dimensions  NDl  through  ND11  are  established  in  subroutine 
B0X1  from  the  control  parameters  discussed  in  Appendix  A,  Volume  1. 

The  values  of  these  dimensions  are  as  follows: 

NDl  = N 
ND2  = NSUM 
ND3  = NTC 
ND4  = M + 2 
ND5  = N + M3 
ND6  =M  + 2 + N + M3 
ND7  = M + 2 

ND8  = M + 2 

ND9  = N 

NDlO  = MXLIST 


(=  1 if  the  basis  reinversion  fea- 
ture of  the  program  is  not  used, 
that  is  if  IFB  = MBINV  = LIST0P  = 0) 

(=  1 if  the  sensitivity  slopes  are 
not  needed,  that  is  if  NSTRAT  = 1, 
NBVRLl  :>  3 and  NTITEl  = 1,  or  if 
NSTRAT  = 2,  NBVRLl  £ 3,  NBVRL2  2 3 
and  NTITEl  = NTITE2  = 1) 

(=1  if  the  program  to  be  solved  is 
a mixed  integer  linear  program  or  a 
linear  program,  that  is  if  ITYPE  = 

1 or  3) 
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NDll  = MXLIST 


Array  IF  is 
Array  (Dimension) 

1.  NZ(NDl) 

2.  NP(NDl) 

3.  IR(ND2) 

4.  IA(ND2) 

5.  INT(NDI) 

6.  ICC(NDl) 

7.  IS(ND4) 

8.  INUSE(NDIO) 

9.  NV(ND6) 

10.  IBV(ND4) 

11.  NBV(ND5) 


(=  1 if  the  LIFO  node  selection  rule 
is  not  used,  that  is  if  NSTRAT  = 1 
and  Nt&DRLl  = 1 or  if  NSTRAT  = 2 and 
NtoRLl  = N0DRL2  = 0). 

subdivided  into  the  following  twelve  integer  arrays: 

Description 

The  number  of  nonzero  entries  in  the  con- 
straint matrix  by  column 

Pointers  marking  the  beginning  of  each 
column  for  arrays  IR  and  IA 

Row  index  for  a nonzero  entry  in  the  con- 
straint matrix 

Pointer  to  the  appropriate  constant  (in  the 
table  of  constants)  for  a nonzero  entry  in 
the  constraint  matrix 

Markers  for  integer  variables  (0  = not 
integer;  1 = first  integer  variable;  2 = 
second  integer  variable;  etc.) 

Markers  for  concave  variables  (0  = not  con- 
cave; 1 = first  concave  variable;  2 = second 
concave  variable;  etc.) 

Temporary  storage  used  in  the  transfer  of 
one  column  of  the  constraint  matrix  (corre- 
sponds to  the  data  in  array  IR) 

Indicator  for  an  entry  in  the  branch-and- 
bound  list  (0  = not  j.n  use;  positive  integer 
= node  number  of  active  node  in  the  list; 
negative  integer  = node  number  of  active 
node  in  the  sublist) 

Temporary  storage 

Current  list  of  basic  variables  in  a 
subprogram 

Current  list  of  nonbasic  variables  in  a 
subprogram 
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[Dimension] 


Description 


1 


12.  IUPPER(ND5)  Upper  bound  indicator  for  nonbasic  variables 

given  in  array  NBV  (0  = nonbasic  variable  is 
at  lower  bound;  1 = nonbasic  variable  is  at 
upper  bound) 


Array  F is  subdivided  into  the  following  24  floating  point  arrays; 


Array  (Dimension) 

1.  TC(ND3) 

2.  B0RIG(ND4) 

3.  RHS(ND4) 

4.  C2(ND1) 

5.  Cl (ND5) 

6.  BI (ND4) 

7.  BN (ND5) 

8.  U (ND6) 

9.  PJ(ND4) 

10.  BINV(ND7,ND7) 

11.  XJ (ND4) 


Description 

The  table  of  constants  for  the  constraint 
matrix 

The  original  right-hand-side  vector  speci- 
fied in  the  program  input 

The  initial  right-hand-side  vector  for  a 
subprogram 

The  coefficients  of  the  program  objective 
function  for  variables  which  enter  linearly 
(i.e.,  objective  function  values  for  con- 
cave variables  are  provided  through  sub- 
routine GET0BJ) 

Objective  function  coefficients  used  in 
phase  1 of  the  linear  programming  solution 
of  the  first  subprogram 

The  current  values  of  basic  variables  in  a 
subprogram 

The  current  values  of  nonbasic  variables  in 
a subprogram 

The  upper  limits  on  the  variables  in  a 
subprogram 

Temporary  storage  used  (together  with  array 
IS)  in  the  transfer  of  one  column  of  the 
constraint  matrix 

Temporary  storage  used  to  develop  the  basis 
inverse  when  the  basis  reinversion  feature 
of  the  program  is  exercised 

The  updated  column  of  the  entering  variable 
in  the  subprogram 
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L 


A 


Array  (Dimension)  Description 

12.  XN^T(NDl)  The  current  best  solution  in  the  branch-and- 

bound  algorithm 

13.  CAPP(NDIO)  The  lower  bounds  assoc ' ated  with  nodes  saved 

in  the  branch-and-1  u list 

14.  CAPL(NDll)  The  processing  order  associated  with  nodes 

saved  in  the  branch-and-bound  list  for  use 
in  the  LIFO  node  selection  rule 

15.  SIGMAL(ND6)  The  lower  limits  on  the  variables  for  a 

subprogram 

16.  SIGMAU(ND6)  The  upper  limits  on  the  variables  for  a 

subprogram 

17.  V(ND6)  Temporary  storage  (used  in  conjunction  with 

array  NV) 

18.  XZ(ND6)  The  solution  to  a subprogram  adjusted  for 

lower  bound  constraints 

19.  S0(ND8)  The  "left"  sensitivity  slopes  associated 

with  the  basic  variables  in  a subprogram 
solution 

20.  Sl(ND8)  The  "right"  sensitivity  slopes  associated 

with  the  basic  variables  in  a subprogram 
solution 

21.  SL0LD(ND6)  The  lower  limits  on  the  variables  for  the 

branching  node 

22.  SU0LD(ND6)  The  upper  limits  on  the  variables  for  the 

branching  node 

23.  C20LD(ND9)  The  coefficients  of  the  program  objective 

function  for  the  branching  node 

24.  B(ND4,ND4)  The  current  basis  inverse  in  a subprogram 

The  pointers  Nil  through  NI12  are  determined  in  subroutine  B0X1  so 

that  the  elements  IF(NIl)  through  IF(NI12)  of  array  IF  correspond  to  the 
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first  elements  of  arrays  NZ  through  IUPPER.  This  is  done,  in  a natural 
fashion,  by  setting  Nil  = 1,  NI2  = Nil  + NDl  where  ND1  is  the  dimension 
of  array  NZ,  NI3  = NI2  + NDl  where  NDl  is  the  dimension  of  array  NP,  and 
so  forth.  The  pointers  NFl  through  NF24  are  similarly  determined  so 
that  the  elements  F(NFl)  through  F(NF24)  of  array  F correspond  to  the 
first  elements  of  arrays  TC  through  B. 
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APPENDIX  C 

BRANCH-AND-BOUND  LIST 


The  branch- and-bound  list  is  discussed  in  this  appendix.  The  list 


contains  a record  of  the  active  nodes  in  the  branch- and-bound  tree  to- 
gether with  the  data  required  to  characterize  each  such  node.  Associ- 
ated with  the  list  is  the  data  required  by  the  branching  node  selection 
rule  or  rules  to  manipulate  the  list.  The  record  of  the  active  nodes 
and  the  branching  node  selection  data  are  maintained  in  core  storage, 
while  the  data  required  to  characterize  each  node  are  maintained  in 
random  access  mass  storage. 

The  items  of  information  which  are  maintained  in  core  storage  are 
the  following: 

(i)  The  number  of  nodes  in  the  list  (parameter  NLIST) ; 

(ii)  The  number  of  nodes  in  the  sublist  (parameter  NLISTS) ; 

(iii)  The  node  number  for  each  active  node  (array  INUSE); 

(iv)  The  lower  bound  for  each  active  node,  used  by  the 

priority  node  selection  rule  (array  CAPP) ; and 

(vl  The  processing  order  for  each  active  node,  used  by  the 
LIFO  node  selection  rule  (array  CAPL) . 

The  items  of  information  which  are  saved  in  random  access  mass  storage 


for  each  active  node  are  the  following: 


(i) 

The  lower  and  upper  limits  on  the  variables  which  serve 
to  characterize  a node  (arrays  SIGMAL  and  SIGMAU) ; 

(ii) 

Branching  variable  selection  data  (parameters  IBRVRl, 

IUPDN1,  XBRVRl , IBRVR2,  IUPDN2,  XBRVR2) ; 

(iii) 

Limit  tightening  information  (parameter  Z,  arrays  XZ, 

SO , SI)  ; and 

(iv) 

The  optimal  tableau  associated  with  the  subprogram 
(parameters  TSIG,  LlO,  NITER,  NBINV,  M7,  IPHASE,  NPHASE, 

NM3M7,  arrays  IBV,  NBV,  IUPPER,  C2,  B) . 
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Depending  upon  the  program  solution  strategy,  the  program  type,  and  the 
branch- and-bound  list  option,  certain  of  these  items  need  not  be  saved 
and  are  omitted  from  the  list.  If  only  one  solution  strategy  is  to  be 
used  in  the  solution  of  the  program  (NSTRAT  = 1) , the  data  associated 
with  the  second  solution  strategy  (parameters  IBRVR2,  IUPDN2,  XBRVR2) 
are  omitted  from  the  list.  If  limit  tightening  is  not  included  in  the 
program  solution  strategy  (NSTRAT  = 1 and  NTITE1  = 1,  or  NSTRAT  = 2 
and  NTITE1  = NTITE2  = 1) , then  the  data  associated  only  with  limit 
tightening  (arrays  XZ,  SO,  SI)  are  omitted  from  the  list.  If  the 
program  is  a mixed  integer  linear  program  (ITYPE  = 1),  the  objective 
function  coefficients  (array  C2)  are  the  same  for  all  nodes  and  are 
omitted  from  the  list.  If  the  branch-and-bound  list  option  indicates 
that  the  basis  inverse  should  not  be  included  in  the  list  (LIST0P  = 1) , 
then  the  basis  inverse  matrix  associated  with  the  optimal  tableau  for 
a node  (array  B)  is  not  saved  in  the  list.  The  basis  reinversion 
feature  is  then  used  to  regenerate  the  basis  inverse  matrix  in  the 
event  that  this  node  is  selected  for  branching. 

The  balance  of  this  appendix  discusses  the  mechanics  associated 
with  manipulating  that  portion  of  the  branch-and-bound  list  which  is 
maintained  in  random  access  mass  storage.  Four  integer  arrays  are 
associated  with  the  data  to  be  saved  in  the  list.  These  are: 

NV(ND6) 

IBV(ND4)  Sy 

NBV(ND5) 

IUPPER(ND5) . 


36 


The  eleven  Integer  parameters 

IBRVRl 

IUPDNl 

IBRVR2 

IUPDN2 

L10 

NITER 

NBINV 

M7 

IPHASE 

NPHASE 

NM3M7 

are  transferred  into  the  last  eleven  locations  of  array  NV.  The  integer 
parameters  and  arrays  to  be  saved  in  the  list  thus  occupy 

NDMS2  = ND4  + 2 • ND5  + 11 

consecutive  locations  in  core  storage,  all  within  the  basic  integer 
array  IF.  An  auxiliary  array  IMS,  having  variable  dimension  NDMS2,  is 
used  to  refer  to  this  integer  data.  The  first  location  of  array  IMS 
within  the  array  IF  is  positioned  eleven  locations  before  the  first 
location  of  array  IBV.  Setting 

NIMS2  = NI10  - 11, 

IMS(l)  corresponds  to  IF(NIMS2) . 

Eight  floating  point  arrays  are  associated  with  the  data  to  be 
saved  in  the  list.  These  are; 
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V(ND6) 

XZ(ND6) 

S0(ND8) 


SI (ND8) 

SL0LD(ND6) 

SU0LD(ND6) 

C20LD(ND9) 

B(ND4,ND4) . 

The  contents  of  arrays  SIGMAL,  SIGMAU  and  C2  are  transferred  into  the 
arrays  SL0LD,  SU0LD  and  C20LD  (respectively) . The  four  floating  point 

parameters 

Z 

TSIG 

XBRVRl 

XBRVR2 

are  transferred  into  the  last  four  locations  of  array  V.  The  floating 
point  parameters  and  arrays  to  be  saved  in  the  list  thus  occupy 
NDMS3  = (ND4) 2 + 3 • ND6  + 2 • ND8  + ND9  + 4 
consecutive  locations  in  core  storage,  all  within  the  basic  floating 
point  array  F.  An  auxiliary  array  FMS,  is  used  to  refer  to  this  float- 
ing point  data.  The  first  location  of  array  FMS  within  the  array  F is 
positioned  four  locations  before  the  first  location  of  array  XZ. 

Setting 

NFMS3  * NF18  - 3, 
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FMS(l)  corresponds  to  F(NFMS3) . 

The  definitions  of  the  dimensions  NDMS2,  NDMS3  and  the  pointers 
NIMS2,  NFMS3  just  given  correspond  to  the  maximum  possible  list  size. 

In  the  event  that  selected  items  of  data  are  omitted  from  the  branch- 
and-bound  list,  these  dimensions  and  pointers  are  modified  to  reflect 
any  such  omissions. 

Tape  units  2 and  3 are  the  areas  of  mass  storage  occupied  by  the 
branch-and-bound  list.  Three  CDC  6700  system  subroutines  are  used  to 
establish  a random  access  structure  for  these  areas  of  mass  storage 
(subroutine  0PENMS) , to  transfer  the  data  for  the  branching  node  from 
mass  storage  into  core  storage  (subroutine  READMS) , and  to  transfer  the 
data  for  an  active  node  from  core  storage  into  mass  storage  (subroutine 
WRITMS).  Exhibit  3 illustrates  the  use  of  these  subroutines  in  the 
manipulation  of  the  branch-and-bound  list.  At  line  22  of  subroutine 
IC0N,  a call  to  subroutine  0PENMS  establishes  the  random  access  struc- 
ture for  tape  unit  2.  Array  IMASS2  is  used  to  store  subindices  or 
pointers  for  1000  "compartments"  located  within  this  area  of  mass 
storage.  The  call  to  subroutine  0PENMS  at  line  23  of  subroutine  IC0N 
establishes  a similar  structure  for  tape  unit  3 using  array  IMASS3  to 
store  subindices.  Subroutine  B0X1,  called  at  lines  24-25  of  subroutine 
IC0N,  sets  the  values  for  dimensions  NDMS2,  NDMS3  and  pointers  NIMS2, 
NFMS3  for  the  particular  program  being  solved.  Subroutine  B0X12, 
called  at  lines  49-51  of  subroutine  IC0N,  selects  the  branching  node 
from  the  branch-and-bound  list  (or  sublist).  The  compartment  in  which 
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EXHIBIT  3 

MANIPULATION  OF  THE  BRANCH-AND-BOUND  LIST 


SUBROUTINE  ICON  (TF.F.NT, NFt 

C BRANCH-ANO-90UMO  ALGORITHM  FOR  THE  INTEGER  CONCAVE  PROGRAM. 

COMMON /PO/N 1 l ,NI 2,NT3,NI4. NI 5, NI6.NI 7,Nt  A, MI9.NI 10 , Mill. MI 12. 

1 NIMS2,NF1,NF2,NF3,NF4,NF5,NF6.NF7,NF8,NF9,NF10,NF11, 

2 NF12,NF13,NF14,NF15,NF16.NF17,NF18,NF19,NF20,NF21,NF22, 

3 NF23,NF24,NFMS3 


COMMON/AO 7IMASS 2 110 01), IHASS3I 10011 
DIMENSION  IF  INI > »F IMF) 


CALL  OPENMS  12 t I MASS 2. 1001. 0) 

CALL  OPEMHS  (3. IMASS3. 1001.3) 

100  CALL  BOXl  (IF,F»NI,NF.N01,ND2 ,N03 , N04.N 05 »N06 »N07» N08, ND9.NO10, 
1 NOl 1 . N0MS2, N0NS3I 


160  CALL  BOX12  (IFC  NI# 1 , IF(  NIMS2I  . F(NF4I,  F(  NF1  j|  , FI  NF14I  ,F  (NF15I  « 

1 FINF16) .F(NF21I ,F(NF22I «F (NF23I «F ( NFMS3 1 .N01.N06, 

2 ND9,ND10,NOll,NOMS2,NOMS3» 


240  CALL  80X25  (IF (NI8) , IF(NIMS2> ,F(NF4» »F (MF13I ,F( NF14I , F INF15 » , 

1 F (NF 16) .F (NF  21)»F(NF22I«F(NF23I»F(NFMS3I .N01.N06. 

2 ND9. NO10 . N011»  N0MS2.NDMS3I 


END 

SUBROUTINE  00X12  (INUSE, IMS, C2.CAPP.CAPL, SIGNAL, SIGMAU.SLOLO, 

1 SU0L0.C20L0 , FMS, ND1.N06, N09.ND10, NOl 1, NOMS2, 

2 NOMS3) 

C SELECT  THE  BPANCHING  NOOF  FROM  THE  SUBLIST  (PHASE  II  OR  THE  LIST 
C (PHASE  21. 


DIMENSION  I NUSE (NO10 > , IMS (N0MS2) 

DIMENSION  f.2(N01 » ,CAPP(NO10»  ,CAPL  (NOU)  .SIGNAL  (N06)  ,SIGMAU(N06t  , 
1 SLOLD (N06) , SUOLO (NO  6 1 , C20LO(ND9 I, FMS( NOMS3I 


CALL  REAOMS  (2, IMS, NOMS2, tOI 
CALL  REAOMS  (3,FMS,NOMS3,IOI 


END 


ICONOOO 1 
ICONOOO  2 
ICONOOO  3 
ICONOOO  4 
I COHO  00  5 
ICONOOQ6 


ICONOOl 7 

tcoNooia 


ICON0022 

ICON0023 

ICON0024 

ICON0025 


ICON0049 

ICONOOSO 

ICONOQ51 


ICON0086 

ICON008T 

ICONOOO# 


ICON0098 

33X10001 
30X10002 
B3X10003 
BOX  1000  4 
BOXIOOOS 


BOX  10016 
00X10017 
30X10016 


0X10065 

0X10066 
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EXHIBIT  3 (Continued) 


— ^ 

the  data  for  the  branching  node  is  stored  (parameter  10)  is  determined. 

At  line  65  of  subroutine  B0X12,  subroutine  READMS  is  called  to  transfer 
the  data  contained  in  compartment  10  on  tape  unit  2 into  the  array  IMS 
in  core  storage.  At  line  66  of  subroutine  B0X12,  a similar  call  of 
subroutine  READMS  transfers  the  data  contained  in  compartment  10  on 
tape  unit  3 into  the  array  FMS.  Subroutine  B0X25,  called  at  lines  86- 
88  of  subroutine  IC0N,  stores  the  data  for  an  active  node  in  the  branch- 
and-bound  list  (or  sublist) . An  available  compartment  is  found  (param- 
eter 10)  and,  at  lines  145-146  of  subroutine  B0X25,  two  calls  to  sub- 
routine WRITMS  transfer  the  data  contained  in  arrays  IMS  and  FMS  in 
core  storage  into  compartment  10  on  tape  unit  2 and  compartment  10  on 
tape  unit  3 (respectively) . 
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APPENDIX  D 


SUBPROGRAM  REPRESENTATION  AND  SOLUTION 


The  representation  and  solution  of  the  subprograms  generated  by 
the  branch-and-bound  algorithm  are  discussed  in  this  appendix.  The 
data  associated  with  a subprogram  (a  linear  program)  are: 

(i)  A,  the  M x N matrix  of  constraint  coefficients; 

(ii)  RHS , the  right-hand-side  vector; 

(iii)  Cl,  the  vector  of  coefficients  for  the  (linear  pro- 
gramming) phase  1 objective  function; 

(iv)  C2,  the  vector  of  coefficients  for  the  (linear  pro- 
gramming) phase  2 objective  function;  and 

(v)  U,  the  vector  of  simple  upper  bounds  on  the  program 
variables. 

Figure  3 displays  this  data  in  the  form  in  which  it  is  used  in  the 
computer  program. 

Specific  labeling  conventions  are  adopted  for  the  rows  and  columns 
of  the  linear  program.  The  (M  + 2)  rows  are  ordered  as  follows: 


Less  than  or  equal  constraints 

(Ml 

rows) 

Equality  constraints 

(M2 

rows) 

Greater  than  or  equal  constraints 

(M3 

rows) 

Phase  2 objective  function 

(1 

row) 

Phase  1 objective  function 

(1 

row)  . 

The  (N  + M + M3  + 2)  columns  of  the  linear  program  are  ordered  as 
follows; 


Program  variables 
Surplus  variables 
Slack  variables 

Artificial  variables  (equality  constraints) 


(N  columns) 
(M3  columns) 
(Ml  columns) 
(M2  columns) 
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Artificial  variables  (greater  than  or  equal 
constraints) 


(M3  columns) 
(1  column) 


Phase  2 objective  function 

Phase  1 objective  function  (1  column) 

Right-hand- side  (1  column) # 

The  constraint  matrix  A is  represented  within  the  computer  pro- 
gram in  a form  which  is  commonly  used  for  large  linear  programs. 

The  density  of  nonzero  entries  in  the  constraint  matrix  is  frequently 
low  for  such  programs.  Moreover,  among  the  nonzero  entries,  particular 
values  (such  as  1 or  - 1)  may  recur  often.  Maintaining  the  entire 
M x N dimensional  constraint  matrix  in  core  storage  is  wasteful  for 
matrices  of  this  type.  An  alternative  means  of  representing  the  con- 
straint matrix  begins  by  establishing  a table  of  constants  which  lists 
the  distinct  values  which  occur  in  the  matrix.  For  each  column  of  the 
matrix,  the  following  information  is  then  recorded: 

(i)  The  number  of  nonzero  entries; 

(ii)  For  each  nonzero  entry,  the  row  number  in  which  the 
entry  occurs;  and 

(iii)  For  each  nonzero  entry,  a pointer  which  indicates  the 
appropriate  value  in  the  table  of  constants. 

In  the  computer  program,  the  array  TC  corresponds  to  the  table  of  con- 
stants, the  array  NZ  corresponds  to  the  number  of  nonzero  entries  by 
column,  the  array  IR  contains  the  row  numbers  in  which  nonzero  entries 
occur,  and  the  array  IA  contains  the  corresponding  pointers  to  the 
table  of  constants.  An  auxiliary  array  NP  is  defined  by  the  relations 
NP(1)  = 0 and 
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J-l 

NP(J)  = 2 NZ(I) 

1-1 


for  J = 2,N.  This  array  provides  a set  of  pointers  for  use  in  con- 
junction with  arrays  IR  and  IA.  The  data  corresponding  to  the  J-th 
column  of  the  constraint  matrix  is  then  stored  in  the  locations  NP(J)  + 

1 through  NP( J)  + NZ(J)  of  arrays  IR  and  IA.  For  extremely  large  pro- 
grams, the  integer  arrays  NZ,  NP,  IR  and  IA  could  be  maintained  in  core 
storage  by  packing  them. 

The  linear  programming  code  used  in  this  branch- and-bound  algorithm 
utilizes  the  revised  simplex  method  with  simple  upper  bounds  on  the 


variables.  This  version  of  the  simplex  method  is  discussed  in  Lasdon 
(1970)  and  in  Garfinkel  and  Nemhauser  (1972).  Both  the  primal  and  the 
dual  simplex  algorithms  are  included.  The  primal  algorithm  operates 
either  as  a one  phase  method  or  as  a two  phase  method  depending  upon 
the  requirements  of  the  program  being  solved.  Associated  with  this 
linear  orogranming  code  is  a basis  inversion  feature  which  can  be  used 
to  combat  the  accumulation  of  round-off  error  associated  with  the 
simplex  pivot  operations. 

The  data  associated  with  the  current  tableau  in  a subprogram  are: 

(i)  IBV,  the  vector  of  indices  of  basic  variables; 

(ii)  NBV,  the  vector  of  indices  of  nonbasic  variables; 

(iii)  IUPPER,  the  vector  of  indicators  of  nonbasic  variables 
at  upper  bound; 

(iv)  BI,  the  vector  of  values  of  basic  variables; 

(v)  BN,  the  vector  of  values  of  nonbasic  variables;  and 
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(vi)  B,  the  basis  inverse. 


These  arrays  are  updated  at  each  simplex  iteration.  Note  that 

BI  = B(RHS  - L U;  • P.) 

j 

where  the  summation  is  taken  over  all  nonbasic  variables  j which  are  at 
upper  bound  and  where  Pj  denotes  the  corresponding  column  in  Figure  3. 
Also,  BN  can  be  obtained  directly  from  IUPPER  and  U.  As  a consequence, 

BI  and  BN  need  not  be  saved  in  the  branch- and-bound  list. 

The  initial  feasible  basis  for  the  first  subprogram  consists  of 
slack  and  artificial  variables  unless  the  user  elects  to  provide  a 
basis  as  a part  of  the  branch-and-bound  input.  A phase  1 objective 
function  is  established  if  there  are  artificials  in  the  initial  basis. 

The  basis  is  primal  feasible  if  the  initial  values  of  the  basic  varia- 
bles are  nonnegative  and  do  not  exceed  their  upper  bounds.  In  this 
case,  the  primal  algorithm  is  applied  to  solve  subprogram  1,  using  either 
a one  phase  method  (if  there  are  no  artificials  in  the  basis)  or  a two 
phase  method  (otherwise) . If  the  initial  basis  is  not  primal  feasible, 
the  reduced  costs  are  examined  to  see  if  they  are  nonnegative,  in  which 
case  the  initial  basis  is  dual  feasible.  In  this  case,  the  dual  simplex 
algorithm  is  applied  to  solve  subprogram  1.  In  the  event  that  there 
are  artificials  in  the  initial  basis,  the  phase  1 objective  function  is 

treated  as  a constraint  so  that  the  values  of  these  artificials  are 

l 

forced  to  be  zero  in  the  solution.  When  the  solution  to  subprogram  1 
is  reached,  the  optimal  basis  is  tested  to  see  if  it  contains  artificial 
variables.  If  no  artificials  are  in  this  basis,  the  row  and  column 
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corresponding  to  the  phase  1 objective  function  are  deleted  from  the 
tableau,  if  there  are  artificials  remaining  in  the  basis,  these 


necessarily  have  value  zero.  However,  the  phase  1 objective  function 
must  be  maintained  in  the  tableau  as  a constraint  to  assure  that  these 
artificials  cannot  assume  positive  values  in  the  solutions  to  sub- 
sequent subprograms. 

Linear  programming  sensitivity  analysis  is  applied  to  solve  the 
subprograms  after  the  first  subprogram.  This  allows  the  solution  of  a 
subprogram  to  proceed  from  the  optimal  tableau  associated  with  the 
branching  node.  If  the  basis  inverse  is  not  included  in  the  branch-and- 
bound  list,  then  it  is  regenerated  using  the  basis  inversion  feature  of 
the  linear  programming  code.  The  simple  upper  bounds  U are  computed  to 
be  the  difference  between  the  lower  and  upper  limits  SIGMAL  and  SIGMAU 
(respectively)  on  the  variables.  The  initial  values  BI  of  the  basic 
variables  are  computed  by  adjusting  RHS  for  variables  at  upper  bound 
and  then  multiplying  by  the  basis  inverse.  As  a result  of  the  new  con- 
straint added  for  the  branching  variable  and  of  the  tightening  of  lower 
and  upper  limits  for  the  basic  variables,  this  tableau  may  be  primal 
infeasible.  Since  the  initial  feasible  point  was  the  optimal  solution 
for  the  branching  node,  this  tableau  is  dual  feasible.  Thr  dual  simplex 
algorithm  is  applied  to  generate  an  optimal  solution  under  the  new  con- 
straints. The  cost  coefficients  C2  are  next  updated  to  reflect  any 
changes  made  to  the  lower  and  upper  limits  for  concave  variables.  When 
the  cost  coefficients  change,  the  reduced  costs  appearing  in  the  tableau 
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also  change  resulting  in  a tableau  which  is  not  in  canonical  form.  The 
basis  inverse  and  values  of  the  basic  variables  are  modified  to  re- 
establish the  canonical  form  of  the  tableau,  which  then  is  primal 
feasible  but  not  optimal.  The  primal  algorithm  is  applied  to  generate 
an  optimal  solution  for  the  new  cost  data.  An  adequate  presentation  of 
the  linear  programming  sensitivity  analysis  techniques  used  here  may  be 
found  in  Hillier  and  Lieberman  (1967) . 
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APPENDIX  E 


SUBROUTINES 


The  subroutines  used  in  the  IC0N  branch-and-bound  algorithm  are 
discussed  in  this  appendix.  The  algorithm  consists  of  29  subroutines. 
Three  of  these  (MAIN,  READIN  and  GET0BJ  are  provided  by  the  user  for 
each  program  to  be  solved.  These  are  discussed  in  Appendices  B and  C 
of  Volume  1.  Following  is  a description  of  each  of  the  remaining  26 
subroutines,  indicating  the  function  performed  by  the  subroutine  in  the 
algorithm  and  any  notable  features  of  the  subroutine.  The  nomenclature 
selected  for  subroutines  B0X1  through  B0X25  corresponds  to  the  labels 
which  appear  in  Figure  2,  the  general  flow  schematic  for  the  algorithm. 
Figure  4 shows  the  number  of  times  one  of  these  subroutines  calls  or  is 
called  by  another  subroutine. 


Subroutine 


IC0N 


B0X1 


B0X2 


Description 

This  is  the  master  subroutine  which  calls  the 
various  subroutines  in  the  sequence  specified  in  the 
general  flow  schematic  for  the  branch-and-bound 
algorithm.  The  initiation  of  a program  solution 
from  previously  prepared  restart  tapes  and  the  prep- 
aration of  restart  tapes  when  the  program  time  limit 
is  reached  are  accomplished  by  calling  subroutine 
RSTART. 

The  branch-and-bound  input  and  the  user  input  are 
accepted  by  this  subroutine  by  means  of  calls  to 
subroutines  INPUT1,  INPUT2,  INPUT3  and  READIN.  The 
dimensioning  of  arrays  and  the  structuring  of  the 
branch-and-bound  list  are  done  in  B0X1. 

This  subroutine  initializes  the  data  used  in  the 
branch-and-bound  algorithm.  The  initial  basis, 
basis  inverse  and  values  of  the  basic  variables  are 
established  by  a call  to  subroutine  INPUT4.  The 
algorithm  to  be  used  to  solve  the  first  subprogram 
is  determined  by  subroutine  INPUT5 . The  first 
subprogram  is  then  solved. 
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CALLING  SUBROUTINE 
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FIGURE  4 

CALLS  TO  IC0N  SUBROUTINES 
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Subroutine 

B0X5 

B0X7 

B0X1O 

B0X12 


B0X13 

B0X15 


B0X17 


Description 

The  solution  to  the  problem  at  the  end  of  the  branch- 
and-bound  computation  is  printed  by  this  subroutine. 
It  also  prints  the  current  best  solution  in  the 
event  that  the  program  time  limit  is  reached  and  re- 
start tapes  are  prepared. 

This  subroutine  computes  the  current  best  lower 
bound  as  required  by  the  variable  best  upper  bound 
me  thod . 

This  subroutine  selects  a node  from  the  branch-and- 
bound  list  and  places  it  in  the  sublist  as  required 
by  the  variable  best  upper  bound  method. 

The  branching  node  is  selected  from  the  sublist  (in 
phase  1 of  the  variable  best  upper  bound  method)  or 
from  the  list  (in  phase  1 of  any  other  solution 
method  and  in  phase  2) . The  data  for  the  branching 
node  is  read  in  from  random  access  mass  storage 
(using  subroutine  READMS)  if  this  data  is  not  al- 
ready in  core.  The  branching  variable  selection  is 
adjusted  according  to  the  current  phase  of  the 
branch- and- bound  algorithm. 

This  subroutine  tightens  the  limits  on  monotone 
variables  during  phase  1 and  tightens  the  limits  on 
all  basic  variables  using  the  best  upper  bound 
during  phase  2.  The  latter  function  is  accomplished 
by  calling  the  auxiliary  subroutine  ADJUST. 

The  subprograms  associated  with  the  two  nodes 
obtained  from  the  branching  node  are  solved  in  this 
subroutine.  The  tableau  associated  with  the  branch- 
ing node  is  modified  to  reflect  any  new  lower  and 
upper  limits  on  the  variables.  The  modified  tableau 
is  the  starting  point  for  the  solution  of  both  sub- 
programs and  is  saved  on  tape  unit  4 for  use  in  the 
second  subprogram  solution.  The  first  subprogram 
is  solved  using  the  dual  simplex  and  primal  algo- 
rithms, as  required.  The  information  on  tape  unit 
4 is  read  in  before  the  second  subprogram  is  solved. 

This  subroutine  determines  the  lower  bound  for  the 
node  and  selects  the  branching  variable.  If  one  of 
the  most  noninteger  branching  variable  selection 
rules  (rules  3 or  4)  is  being  used  for  a mixed 
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Subroutine 


Description 


B0X23 


B0X25 


ADJUST 


BINVRT 


integer  linear  program  (I TYPE  = 1) , or  if  the  con- 
ventional branching  variable  selection  rule  (rule  5) 
is  being  used  for  a concave  program  (ITYPE  = 2) , 
the  lower  bound  is  taken  to  be  the  objective  func- 
tion value  Z.  If  the  maxmin  or  maxmax  branching 
variable  selection  rules  (rules  0,  1 or  2)  are  being 
used,  the  stronger  lower  bound  corresponding  to  the 
maxmin  penalty  is  used.  If  it  was  determined  in 
subroutine  INPUT3  that  the  objective  function  is  in- 
teger valued,  then  this  lower  bound  is  rounded  up. 
When  a two  strategy  method  is  being  used,  two  branch- 
variable  selections  are  made. 

The  best  upper  bound  is  updated  in  this  subroutine. 
The  branch-and-bound  list  is  edited  to  delete  any 
nodes  for  which  the  lower  bound  exceeds  this  new 
best  upper  bound.  If  the  algorithm  was  in  phase  1, 
then  phase  2 is  entered  and  the  sublist  is  merged 
into  the  list  when  the  variable  best  upper  bound 
method  is  being  used. 

The  current  node  is  saved  in  the  sublist  (in  phase  1 
of  the  variable  best  upper  bound  method  when  the 
lower  bound  is  less  than  the  best  upper  bound)  or  in 
the  list  (otherwise) . The  data  for  the  node  is 
placed  in  random  access  mass  storage  (using  sub- 
routine WRITMS) . In  the  event  that  the  maximum  list 
size  is  exceeded,  the  node  having  the  greatest  lower 
bound  is  erased  from  the  list  to  make  room  for  the 
new  node. 

This  subroutine  is  called  by  subroutine  B0X13  to 
adjust  the  lower  and  upper  limits  on  a variable 
using  sensitivity  analysis  information  together  with 
the  best  upper  bound. 

Basis  inversion  or  reinversion  is  accomplished  by 
this  subroutine.  The  basis  matrix  consists  of  those 
columns  P.  from  Figure  3 for  the  basic  variables 
j (specified  in  array  IBV) . The  corresponding  right- 
hand-side  vector  is 

RHS  - £ U 4 * Pa 

j J J 
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Subroutine 


GETC0L 


INPUT1 


INPUT2 


INPUT3 


INPUT4 


Description 

where  the  summation  is  taken  over  all  nonbasic 
variables  j which  are  at  upper  bound  (specified  in 
arrays  NBV  and  IUPPER) . Subroutine  INVERT  is  called 
to  determine  the  basis  inverse  matrix  and  the 
corresponding  values  of  the  basic  variables. 

This  subroutine  places  the  J-th  column  from  the 
tableau  shown  in  Figure  3 into  the  array  PJ  which 
is  assumed  to  have  been  set  to  zero  prior  to  calling 
the  subroutine.  The  number  of  nonzero  entries  in 
the  column  and  indicators  as  to  which  entries  are 
nonzero  are  returned  using  parameter  NZER0S  and 
array  IS. 

The  number  of  less  than  or  equal,  equality,  and 
greater  than  or  equal  constraints  are  read  and  the 
parameters  in  C0MM0N/P2/  are  initialized.  From  the 
number  of  nonzero  entries  by  column  (array  NZ) , the 
column  pointers  are  developed  (array  NP) . 

The  arrays  IR  and  IA  associated  with  the  constraint 
matrix  representation  are  read,  along  with  the 
number  of  entries  in  the  table  of  constants  (param- 
eter NTC) . 

The  remainder  of  the  data  associated  with  the  con- 
straint matrix,  the  table  of  constants  and  the 
right-hand- side  vector,  are  read.  The  lower  and 
upper  limits  on  variables  are  read  in  when  values 
other  than  the  default  values  of  0 and  -i-  00  (respec- 
tively) are  desired.  The  cost  data  and  lists  of 
integer  and/or  concave  variables  are  read  in  next. 
For  a mixed  integer  linear  program  (I TYPE  = 1) , a 
determination  is  made  if  the  objective  function  is 
integer  valued.  This  information  is  used  in  sub- 
routine B0X17  to  round  lower  bounds  on  the  nodes. 

Called  by  subroutine  B0X2,  this  subroutine 
establishes  the  initial  basis,  basis  inverse  and 
right-hand-side  for  the  first  subprogram.  If  the 
initial  feasible  basis  is  a part  of  the  program 
input  (IFB  = 1 on  the  first  control  card) , then 
this  basis  is  read  in  and  the  basis  inversion 
feature  is  used  to  establish  the  corresponding 
basis  inverse  and  right-hand-side.  Otherwise,  the 
initial  feasible  basis  consists  of  slack  and  arti- 
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I 


Subroutine 


INPUT5 


INVERT 


0BJ1 


RSTART 


Description 

ficial  variables  with  the  basis  inverse  being  an 
identity  matrix  and  the  initial  right-hand-side 
agrees  with  the  input  right-hand-side  vector.  In 
either  case,  if  there  are  artificals  in  the 
initial  basis,  subroutine  (SBJl  is  called  to  estab- 
lish the  phase  1 objective  function. 

This  subroutine  selects  the  linear  programming 
algorithm  (primal  or  dual  simplex)  to  be  used  to 
solve  the  first  subprogram.  The  initial  basis  is 
tested  for  primal  feasibility  (nonnegative  right- 
hand-side)  and,  if  it  is  primal  feasible,  the  pri- 
mal algorithm  is  selected.  If  the  initial  basis  is 
not  primal  feasible,  it  is  tested  for  dual  feasi- 
bility (nonnegative  reduced  cost  vector)  and,  if  it 
is  dual  feasible,  the  dual  simplex  algorithm  is 
selected. 

The  Gauss-Jordan  method  of  matrix  inversion  is  used 
to  invert  the  basis  matrix  and  determine  the  corre- 
sponding vector  of  values  of  basic  variables.  An 
ill-conditioned  basis  matrix,  if  encountered, 
results  in  the  termination  of  computations. 

This  subroutine  computes  and  stores  the  (linear 
programming)  phase  1 objective  function  associated 
with  the  tableau  for  the  first  subprogram  in  its 
canonical  form. 

The  manipulation  of  job  restart  tapes  (tape  units  7 
through  10)  is  done  in  this  subroutine. 

If  a job  is  to  commence  from  previously  prepared 
restart  tapes  (indicated  by  the  setting  MSTART  = 1 
on  the  second  control  card),  subroutine  IC0N  calls 
subroutine  RSTART  with  IENTRY  = 0.  Tape  units  7 
and  8 are  read,  restoring  the  branch-and-bound  list, 
labeled  commons  and  variable  dimensioned  arrays  to 
their  condition  at  the  time  computations  were  last 
terminated.  In  subroutine  IC0N,  the  flow  of  the 
branch-and-bound  computation  is  then  reentered  at 
the  point  where  computations  were  terminated. 

The  determination  that  job  restart  tapes  are  to  be 
created  is  made  in  subroutine  IC0N  when  the  elapsed 
execution  time  exceeds  the  input  maximum  execution 
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Subroutine 


Description 


time  (parameter  TIME1  on  the  third  control  card) . 

The  current  values  of  labeled  commons  (C0MM0N/P2/, 

/P 3/  and  /P4/)  and  variable  dimensioned  arrays  are 
saved  on  tape  unit  9.  The  branch-and-bound  list 
together  with  intermediate  data  on  tape  unit  4 (if 
any)  are  saved  on  tape  unit  10.  Note  that  the  data 
saved  on  tape  unit  9 corresponds  to  the  data  read 
from  tape  unit  7 on  a subsequent  restart  run.  Simi- 
larly, tape  unit  10  corresponds  to  tape  unit  8. 

SIMPLE  This  subroutine  contains  the  primal  and  dual  simplex 

algorithms.  Basis  reinversion  is  used  as  a tech- 
nique for  suppressing  round-off  error  in  the  simplex 
computations.  The  frequency  of  basis  reinversion 
is  specified  by  parameter  MBINV  on  the  first  control 
card.  In  the  primal  algorithm,  the  entering  vari- 
able is  taken  as  the  first  nonbasic  variable  en- 
countered having  negative  reduced  cost.  As  compared 
with  the  usual  rule  in  which  all  reduced  costs  are 
computed  with  the  entering  variable  corresponding 
to  the  minimum  reduced  cost,  this  frequently  results 
in  less  total  computation  in  reaching  the  optimum. 

A common  pivot  logic  is  used  for  both  the  primal 
and  dual  simplex  algorithms.  Note  that  the  phase  1 
objective  function  is  deleted  when  no  artificials 
remain  in  the  basis. 

The  computations  in  this  subroutine  can  terminate 
when  any  one  of  the  following  determinations  is 
made: 

(i)  The  current  solution  is  optimal; 

(ii)  The  primal  program  is  infeasible; 

(iii)  The  primal  program  is  unbounded;  or 

( iv)  The  dual  value  exceeds  the  best  upper 
bound  < for  the  dual  simplex  algorithm) . 

Unboundedness  of  the  primal  program  is  impossible 
since  the  lower  and  upper  bounds  define  a compact 
set;  however,  this  form  of  termination  can  occur 
due  to  the  accumulation  of  round-off  errors. 

Because  the  dual  value  in  the  dual  simplex  algorithm 
is  monotone  nondecreasing,  comparison  against  the 
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Subroutine 


Description 


best  upper  bound  is  a useful  way  of  saving  un- 
necessary computation. 

SLOPES  This  subroutine  computes  the  sensitivity  analysis 

slopes  which  are  required  by  the  branch- and-bound 
algorithm  for  penalty  analyses.  These  are  computed 
from  the  optimal  tableau  using  the  dual  simplex 
entering  variable  selection  criteria. 

TIMEC  A printout  of  the  elapsed  job  execution  time  is 

obtained  by  calling  this  subroutine. 

There  are  six  CDC  6700  system  subroutines  which  are  used  in  con- 
junction with  the  IC0N  algorithm.  Only  three  of  these  (0PENMS,  READMS 
and  WRITMS)  are  nonstandard.  These  are  described  in  Appendix  C. 

Figure  5 shows  the  number  of  times  each  system  routine  is  called  by 
some  subroutine  in  the  algorithm. 
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APPENDIX  F 

LISTING  OF  THE  IC0N  ALGORITHM 


This  appendix  presents  a listing  of  the  26  basic  subroutines  which 
comprise  the  IC0N  branch-and-bound  algorithm.  Not  shown  in  Exhibit  4 
are  the  three  user  provided  subroutines  (MAIN,  READIN  and  GET0BJ)  dis- 


cussed in  Appendix  B,  Volume  1. 
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EXHIBIT  4 


LISTING  OF  THE  IC0N  ALGORITHM 


SUBROUTINE  ICON  (1F,F,NI,NF> 

C bRANCH-ANO- ttOUN t ALGORITHN  FOR  THE  INTEGER  CONCAVE  PRCGRAN. 


COMMON/ PC/NI 1( NI2 <NI3  tNI4 ,NI  5 , NI 6 ,N  1 7,  N 1 8 . NI9,  NI  1C , NI11,NI12, 

1 NIKS2,NF1>NF2,nF3,NF4  ,NF5 ,NF6 ,NF7 fNF» ,NF9 ,NF1C . NFll , 

2 NF12,NFl3,NF14,NF15,NFie,NF17,NF18,NF19»NF20,NF21,NF22, 

3 NF23»NF24»NFMS3 

COHHON/P1/N, M,1TYPE,NSTRAT,N0CRL1  ,N8VRL1,NTITE1 ,N00RL2,NavRL2, 

1 NTITE2,MXLIST,LIST0P,  ITAPE.IFB.MXITER.MBINV.IOUTPT, 

2 ITRACE, HSTART,  UMEl.TOLli  T 0L2 , PC6U3, ALPHA ( 10 ) 
COMMON/P2/EPSI,EPSIK,BIGN,BEGTN,hl,M2,N3,M4,Nl,HPl,MP2,NM3, NM1M2, 

1 NH 1M3»N1P2>  NP 1 , NS UM  , NT C >M  1 0 

COMMON/ P3/NC0NO1.LNOT , I BUBOP.LPHA iE .NOORUL .NBVRUL  .NTI GHT .NLIST, 

1 NLISTS, NFEAS.LSTMX, ITRT CT , ITRMA )f BL B, NBRNOO , PBR NOO, 

2 NBRVAR,  MJPDWN.XeRN00,T8RN0D»N00E,lN0DE,Z»B0UNDL*acUN0U, 

3 TSIG«IFEASiIBRVRli IUPCN1 » X9RVR1 j I8RVR2 * IUPQN2  ,XBRVR2, 

A L10fNITER>NBINV>M7«IPHASE«NPHASE>NM3M7fIALGO(IECJ 

COMMON/ A0/IHASS2(10C1) , I H ASS 3 ( 10 0 1 ) 

DIMENSION  IF(NI),F(NF> 

EPSI =1. 0E-11 
EPSI H=-EPSI 
BIGN=1.0E»100 

CALL  OPENMS  (2 , 1 h ASS2 , 10 0 1. 0 1 
CALL  OPENHS  (3. IMASS3.10C1, 01 

100  CALL  BOXl  I If,F,NI, FF , NOl ,N02 , N03 ,NOA , N05 , ND6 , N07, N08 , ND9  , NOl 0, 

1 NOll  ,NCMS2,NOHS3> 

IF (HSTART .EQ. 0) GO TO  110 

CALL  RST ART  ( IF , IF ( NI 8) • I F ( NI 10 ) . ? (NI 1 1 ) , IF (NI 1 2 ) , IF ( NIMS2) , 

1 F,F(NF6> ,F (NF7)  ,F (NF24)  fF(NFNS3> , N I , KF , N04 ,ND5 , 

2 NO 10 |NCMS2>NDMS3|0) 


GOTO170 
110  CALL  80X2 
1 
2 
3 
A 
5 

LNOOE=2 

GOTO190 


(IF (Nil ) t IF (N 12 ) • IF(NI3),IF(NI4),IF(NI5  ),IF(NI6> , 
IF(NI7) , IF(NI8), IF (NI9I , IF(NIIO) ,IF( Kill) , IF(NI12» , 
F(NFl) ,F(NF2),F(NF3),F  INF4),F1NF5),F (NF6),F(NF7), 
F(NF8»  ,F(NF9» ,F(NF10) ,F(NFU) ,F(NF12I , F ( NF 15 » , F ( NF 16)  , 
F (NF17»,F (NF18), F( )F19 ) , F (NF 20 ) , F( NF2 A)  , ND 1 , N02 , N03, 
N0A,N05,N06,N07, NOS, NO  10) 


120  IF(NLIST.NE. 0)GOTO130 

CALL  60X5  (IF(M8) |F(NF12),F(NF13),F(NF1A),N01,ND10,N011,0) 
GOTOICO 


130  IF(I3UBOP.EQ.C)GOTO160 

CALL  80X7  (IF (NI8) , F ( NF 1 3 ) > N010) 

IF(3LB.LT.UNOT)GOT01AO 
UNOT=BLB  4 PCBUB 

IF (I  OUT PT.NE.L) WRITE (6, 1C  CO )UNOT 
INC  CALL  30X10  (IF(NI8) ,F (NF13) .F  (NF1A) ,N01Q,N011I 
150  lF(NLISTS.EQ.b)GOT0123 

160  CALL  BOX12  ( IF ( M 8 ) , IF (NI MS2) ,F (NFA ) ,F (NF 13 ) ,F ( NF1A ) , F (NF 15) , 

1 FCNF16) ,F (NF21) t F (NF22I.F (NF23)«F (NFMS3) , NOl, N06, 

2 NO9,NOlC,NOll,NOMS2,N0MS3) 

CALL  60X13  (IF  (H5I  ,IF(NI6)  ,IF  (NI  10  ) ,F  (NFA)  ,F  INF15)  ,F  (NF16)  , 

1 F(NF16),F(NF19) »F(NF20) ,F(NF21) ,F(NF22) ,N01 , N0A.N06, 


ICON  1 00 1 
ICON0002 
ICON0003 
ICONOOO A 
ICON0035 
ICON3G06 
ICONOOO  7 
ICONS  0 0 8 
ICONS  00  9 
ICON3C10 
ICONQOll 
IC0N0312 
ICON0C13 
ICONOCIA 
ICONOC15 
I CONS  C 1 6 
ICONSC17 
icoNooia 
ICON0019 
1CON002C 
ICON0021 
ICONOL  22 
ICONOC23 
ICONS  0 2 A 
ICONS G 2 5 
ICONOC26 
ICON0027 
I CON  0 0 28 
ICON0029 
ICON0030 
ICONOC31 
ICONOC32 
ICONS033 
ICONQ03A 
ICONS  0 35 
ICONCC36 
ICON0037 
ICON0038 
ICONS  0 39 
ICON  0 0 AO 
ICONOCAl 
ICONS  C A2 
ICONOC A3 
ICONOOAA 
ICONOG45 
ICONOC A6 
I CONS  0 A7 
ICONOCA8 
ICONOG49 
ICONS  0 5 0 
ICON0051 
ICONOC52 
I CON  00  5 3 


68 


EXHIBIT  4 (Continued) 


2 N08I 

INODE3! 

170  CALL  SECONO  (TIHE2) 

IF (T XHE2.LT. BcOTHtTIMtl I COTO180 

CALL  30X5  (JF(N18),F(NF12),F(NF13)»F(NF14)»N01»NU10»ND11,1) 
CALL  RSTART  (IFiIF(N18)»IF(NI10l»IFCNIll),IF(NI12)»IF(NIHS2)» 

1 F.FCNF6) ,F INF7 l»F ( KF  24 ) , F C NF  HS  3) »NI,NF,ND4»N05» 

2 N010  , NOH32. NCHS3, 1 ) 

COTOIOO 

180  CALL  80X15  ( IF  I M 1 1 ,IF  ( NI2) tIF INI 2>  ,IF(NI4)  ,IF ( NI5 ) »IF  CM  6 ) t 

1 IFCM7I.IFCNI9)  , IF (NI10)  , IFCNUl)  ,IF(NI12»  ,FINF1), 

2 F(NF2  ),F (NF3I  ,F (NF4) , FCNF5) ,F  (NF6I.F (NF7) ,F (NFS) , 

3 FCNF9),FCNF1C ),F(NF11 > , F ( NF  15  > , F C NF  16  > , F ( NF 17  ) , 

4 F(NF18) ,F  CNF  19)  ,F(NF2  0I ,FCNF21) ,F  CNF 2 31 ,F  (NF24)  , 

5 NOl ,N02,ND3,NC4,N05  .NC6.N07 ,N08,N09) 

190  IF  (IEOJ.NE. 0 ) GOT 02 50 

CALL  80X17  CIF«KI5),IF«N16),IFCM10),F4NFLI,FINF15),FiNF16l, 

1 FCNF18) ,F CNF  1 9) ,F  (NF20) , NOl ,ND4 ,N06 , NC8) 

IF (1 8U80P .EQ. II  GO TO 210 
IFC8OUNOL.LT.C1.0-TOL1) *UNO T ) GOTO  200 
IF  CIOUTPT.EQ.CIGOT025Q 


ICONOC 54 
ICON0055 
ICON0G56 

ICON0C57 
ICCN0C58 
ICON0059 
ICON3C60 
ICON0C61 
ICON0C62 
ICON  0 0 6 3 
ICON 0064 
ICON0C6S 
ICONS  C 66 
ICON0C67 
ICON0C68 
ICON3C69 
ICON0C70 
ICONO  0 71 
ICON0072 
ICON3C73 
ICONO  C 7 4 


WRITE<6,1001) 

GOTO250 

200  IF  (IFEAS.EQ.  CIGOTO240 

IF (30UNOU.GE.UNOT  1G0T023C 
GOTO220 

210  lFCIFEAS.EQ.OGOT  C240 

220  CALL  80X23  ( IF ( M 8 ) ,F ( NF 12) .F  INF13) ,F (NF18 ) ,N01 ,NDb , N010 ) 

230  IF (80 UN DU-8OUNQl.GT.TOL1*A0S(8OCN CU) ) GOTG240 
1FCIOUTPT.EQ.O  .OR.  I TYPE .EQ. 1 1 GO  TO  250 
WRITE (6 , 1 00  2 ) 

G0T0253 

240  CALL  dOX25  C IF CNI8 ) ,1 F C NI KS 2 ) , F (NF4 ) ,F C NF 13 ) , F C NF14 ) , F ( NF 15 ) , 

1 F(NF1E),F (NF21) >F  CNF  221 » F (NF23) ,F CNFHS3 ) , NOl, N06, 

2 N09.ND10.N011.NCHS2.NOMS3) 

250  IF (IOUTPT .NE.CICALL  TIMEC 

1F(LNOO£.NE.2)GCTG260 
IF  ( 1 8U80P  .ECI . 1 ) GO  TO  15  0 
G0T012G 
260  LN00E=2 
GOTO170 

1000  FORMAT (31H0THE  PHASE  1 BEST  UPPER  BOUND  =,E15.6) 

1001  FORMATC46H0THE  LOFER  BOUND  EXCEEOS  THE  BEST  UPPER  BOUNO.I 

1002  FORHAT  C38MQTHE  LOWER  AND  UPPER  BOINOS'ARE  ECUAL.I 
END 


ICONO  G 7 5 
ICONOC  76 
ICONS  0 77 
ICONOC 78 
ICONO  C 7 9 
ICON0Q80 
I CON  0 C 8 1 
I C ON  0 0 8 2 
ICONOC 83 
ICONOC  8 4 
I CONS  0 85 
ICONO  G 86 
ICONOC  87 
ICONO  G 88 
ICONO  0 8 9 
ICONO  090 
ICONO 091 
ICONO  C 92 
ICON0093 
ICON00  9 4 
ICONO  C95 
ICONOC  96 
ICON0097 
ICONOC  98 


69 


EXHIBIT  4 (Continued) 


SUBROUTINE  B0X1  (IF.F ,NI , NF ,N01, N 12 .N03 ,N04 ,N05 , N06 ,N07 .N08.N09. 

1 NDIO.NOU,  N0HS2,  FDMS3) 

G READ  BRANCH- 4 NO -BOUND  INPUT.  READ  USER  INPUT. 

COMMON/ PC /N 1 1 > N 12  ,NI  3 ,NI  A ,N  15  . Nl  6 ,N  17  , N 18  , NI9,  N I IS  , NI 11 , N 112  . 

1 NIMS2*NF1»NF2,NF3»NF4,NF5»NF6«NF7»NF6»NF9»NF10,NF11, 

2 NF12,NF13,NF14,NF15,NF1 (, NF17 ,NF18,NF19,NF20 ,NF 2 1 ,NF22, 

3 NF  23 , NF  24  * NFMS3 

COMMON/ Pl/N, M.ITYPB.NSTRAT.NOCRLl  ,NB VRL1 . NT ITE1 . NC0RL2 , NB VRL2 , 

1 NT  ITE2|  MXLIST , L IS  TOP , IT  APE , IF3 , FX ITER  ,MBI  NV  , I OU  TPT , 

2 I TRAC t, MSTART, TIME1,T0L1,T0L2,PCBUB, ALPHA (10) 

COMMON/ P2/E  PSI,EPSlM,dIGN,8EGTM,Hl,M2,H3,H4»Nl,MPl, MP2  »NN 3 , NM  1H2, 

1 NH1H3 ,N1P2,NP1 , NSUM  *NTC  »M10 

COMMON/ P3/NO0NOT,UNOT,iaU8OP,LPFAJE,NODRUL,NBVRUL,NTIGHT,NLlST, 

1 NLlSTS, NFEAS.LSTMX, ITRT tT. ITRMAX , Bt 8 . NBRNOO , PBRNOC, 

2 N6RVAR, NUPOMN , X BRNOO ,T  8RNOD, NOOE , LNOOE  , 2 , 80UN0L  » 80UNDU » 

3 TSIG.IFEAS, IBRVR1 , I UPON1 , XBRVR1 , I8RVR2, IUFUN2 .XBRVR2, 

A LlC,NITcR,NdINV,M7, IPHA SE ,NPHASE , NM3M 7, I ALGO, IE CJ 

OIMENSION  IF  (Nil »F (NF t 
CALL  SECOND  (BEGTM) 

C READ  THE  CONTROL  PARAMETERS. 

READ  <5,  1000  IN,M,ITYPE,NSTfiAT,NOORll .N8VRL1 . NTITE1.NOORL2, 

1 N8VRL2. NTITE2,MXLIST, LISTOP,ITAPE,IFB,MXlTER, 

2 MBINV 

IF  IE OF  IS) .NE.O.C) CALL  EXIT 

IF (N.LE .0 (CALL  EXIT 

RE AO  15,  10001  IOUTPT.ITR ACE .MSTART 

IF (MXLIST.EQ.C)HXLIST=1003 

IF  (MXLIST.GT.IOOO)HXLIST-IOOO 

IF(ITAPL.EQ.C) ITA  FE=5 

IF  t MXITER.EQ.C) MX ITER  = 1000 

1NUEX=0 

IFIM8INW.EQ. 0 .ANO.  IFB.EQ.O  .AND.  LISTOP.EQ. Cl INDEX=1 
READ (5,10011 TIME1,T0L1,T0L2 ,UNOT , FCBUB 
IF (TIME  1. EQ. 0 .0 i T JME1=180. 

IF(TOL1.EC.O.C)TOL1-EPSI 
IF  (TOL2.EQ.O.C) TOL2=£PSI 

IFIUNOT.EQ.O.O  .OR.  PCBUB.NE.0.01 UN0T=8IGN 
IBUBOP=C 

IF (PCBUd.NE. 0.01 I8UBOP=l 
READ  (5,  1002 ) ALPHA 

NRITE(6,1003)N,M, ITYPE , NS TR AT ,NOORL l.NBVR LI ,NTI TE 1 ,NOORL2 , 

1 NBVRL2,NTIT£2,MXL 1ST .LIST OP, IT  APE, IFB, MXITER , 

2 MBINV, IOUTPT ,ITRACE, MSTART 
HRITE(6,10D4)TIME1,TOL1,TCL2,LNOT , PC BUB 
NRITE(6, 100  51  ALPHA 

IF  ( ITRACE.GE .1 ) MRITE(6,10  09) 

N01»N 
NI  1=  1 

N I 2*NI 1 ♦ NO 1 
NI3*NI2  ♦ NCI 

C RE  AO  THE  NUMBER  OF  CONSTRAINTS,  THE  NUMBER  OF  NONZERO  ENTRIES  IN  THE 
C CONSTRAINT  MATRIX  (BY  CCLUMNI , ANO  OEVELOP  THE  COLUMN  POINTERS. 

CALL  INPUTl  (IF (Nil) , IF (N 12  I ,N01 1 

N02-NSUH 

NI4=NI3  ♦ N02 

NI5*NI4  ♦ NC2 

C RE  AO  THE  CONSTRAINT  MATRIX  COLUHN-S1-COLUHN. 


BOX13001 
60X10002 
BOXIOCO  3 
BOX 100  8 4 
80  X 1 0 0 0 5 
BOX10GC6 
BOXIOC  0 7 
80X10008 
80X10039 
BOXlGClu 
80X100 11 
BOXIOC 12 
BOX  1 30 1 3 
BOX  1 0 C 1 4 
80X13015 
BOXIOC 16 
BOXIOC 17 
BOX10G18 
80X130 19 
BO  X 1 0 0 2 0 
BO  XI 3 C 21 
BOXIOC  2 2 
BOX  13C  2 3 
BO  X 1 0 0 2 4 
80X10025 
BOX1302E 
BOX10C27 
BOXIOC  28 
BOX10L29 
BOX  10  0 33 
60X10031 
BOXIOC  32 
BOXIOC  33 
BOXIOC  34 
BOX 10  C 35 
BOX10C36 
BOX13037 
80X100  38 
80X13C39 
BOX 10  04  3 
BOX IOC  41 
80X10042 
BOX  10  0 4 3 
BOX 100  4 4 
BOX10045 
80X10  04  E 
80X10047 
BOXIOC  48 
BOX 10 049 
BOX1005C 
SOX10051 
BOX10052 
BOX1005  3 
80X10054 
BOX10055 
60X10056 
60X10057 
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EXHIBIT  4 (Continued) 


CALL  INPUT2  (IF  (Nil!  »IF  ( N 12  ) ■ IF ( N 131  .IF  ( N I>*  1 , NO  1 1 

N02I 

80X10058 

N03=NTC 

80X11059 

N D4  = N ♦ 2 

BOX10060 

N05*N  ♦ M3 

BOX10061 

ND6-N  ♦ M3  ♦ M ♦ 2 

BOX  1 0 06  2 

IF(N06.LT.11)N06=11 

BOX10063 

N07=N04 

BOX  10  064 

IFC  INOEX.EQ. 1 ) NO 7 = 1 

BOX  10 06 5 

N08=N94 

BOX10066 

IF(NBVRL1.LE.2  .OR.  NTI T E 1. E Q. 01 GOTOl 1 0 

BOX10067 

IFC  NSTRA  T .EG .11 GOTOl 00 

60X10068 

I F ( NBVRL2 • L E .2  .OR.  NTI TE2. EQ. 01  GOTOl 1 0 

BOX10069 

100  N 08= 1 

BOX 10 070 

110  N 0 9 = NO  1 

BO  X 1 0 0 7 1 

I F ( I TYPE • EQ  • 1 .OR.  I TY» E . EQ  .31  NO 9=1 

BOX  10072 

NOl 0 =MXL 1ST 

80X10073 

N D1 1=N01 0 

BOX10074 

IF( NOORLl.EQ.il  GOTO  130 

BOX  10  07  E 

IF (NSTRAT.EQ.il  GOTO  120 

BOX10076 

I F ( NOORL 2.EQ.11GOT0130 

BOX  10 07 7 

120  N011=l 

BOX10078 

130  N I 6=NI5  ♦ NOl 

BOX  10079 

N I7=NI 6 ♦ NOl 

80X10080 

N 18  = NI 7 ♦ NO  4 

BO  X 1 0 0 8 1 

NI9=NI 8 ♦ N010 

BOX10082 

NI10=NI9  ♦ N 06 

BOX10083 

N 1 11=NI  1 0 ♦ NO<* 

BOX10084 

Nil 2=NI 1 1 ♦ NO 5 

BOX10085 

NITOT=NI 12  ♦ N05 

BOX10086 

NF1  = 1 

BOX10087 

NF2=  NF 1 ♦ N 03 

BOX  10  088 

N F 3 = NF 2 ♦ NO  *. 

BO  X 1 0 0 8 9 

N F 4 = NF 3 ♦ N 04 

60X10090 

NF5=NF4  ♦ NOl 

BO  X 1 0 0 9 1 

NF6=NF5  ♦ N05 

BOX10092 

NF7=NF6  ♦ N04 

BOX 100 93 

N F 8 = NF 7 ♦ N05 

BOX10094 

NF9=NF8  ♦ N06 

BOX  10095 

NF1 0=NF9  ♦ N 04 

80X10096 

N FI  1=NF 1 0 ♦ N07*N07 

BOX10097 

NF12=NF 1 1 ♦ N04 

BO  X 1 0 0 9 8 

NF1 3=NF12  ♦ NOl 

80X10099 

NF1 4=NF 1 3 ♦ N010 

BOX  1010  0 

N FI 5=NF 1 4 ♦ NO 11 

BO  X 1 0 1 0 1 

NF16=NF 15  ♦ N06 

BOX  10102 

NF1 7=NF16  ♦ N06 

BO  X 1 0 1 0 3 

NF1 8=NF 1 7 ♦ N06 

BOX  1010  4 

NF19=NF1 8 ♦ N06 

BOX10105 

NF2  0=NF 1 9 ♦ NOS 

80X10106 

NF2 1=NF20  ♦ NOS 

BOX1Q107 

NF22=NF21  ♦ N06 

BOX  1 0108 

NF23=NF22  ♦ NO 6 

60X10109 

NF24=NF23  ♦ N09 

BOXIOllO 

NFT 0T=NF24  ♦ N04»N04 

BOX 10 111 

IF! NI .LT .NITOT  .OR.  NF. LT . NFTOTI G0T02 JO 

BOX10112 

READ  THE  TABLE  OF  CONSTANTS.  THE  RIGHT-HANO-SIDE.  THE 

LONER  AND 

00X10113 

UPPER  BOUNDS.  THE  COST  DATA,  ANO  THE  LISTS  CF  INTEGER 

ANO  CONCAVE 

BOXIOllO 

1 


EXHIBIT  4 (Continued) 


c variables. 

CALL  INPUTS  (IF(NI5l,IF(NI6t,IF(NI9».F(NFll,F(NF2l,F(NF4» , 

I F(NF1S),F(NF16>,F(NF17I,N01,N03,N04,N06) 

NRITE(6. 10061 NITOT.NFTOT 

C ESTABLISH  THE  STRUCTURE  OF  THE  BRANCH-ANO-BOUNO  LIST. 
IF(NSTRAT.EQ.2)GOT0140 
NI MS2-NI 10  - 9 
N0HS2-N04  ♦ 2*N05  ♦ 9 
COTO150 

140  NIMS2*NI10  - 11 

NDHS2=NU4  ♦ 2*N0S  ♦ 11 
150  N0HS3=2*N06  ♦ 3 

IF (AT  IT  El .EQ. 01  GO  TO 160 
IF  (NSTRAT.EQ.DGOTO170 
IF  I NT IT  E2.EQ. 1) GO TO 170 
160  NFHS3=NF18  - 3 

NOMS3-NONS3  ♦ N06  * 2*N08 
GOTO  180 

170  NFMS3=NF21  - 3 
ISO  IF  (NS TR AT. EQ.lt  GO  TO  190 
NFHS3=NFHS3  - 1 
HOHS3=NOMS3  » 1 
19.0  IF  (LISTOP.EQ  .11  GO  TO200 

NOHS3-NUHS3  ♦ N09  ♦ N04»NC4 
G0T021C 

200  IF (ITYPc.EQ. 1) GOTO 210 
NOHS3=NOHS3  ♦ N09 
210  NHST 0T  = N0HS2  ♦ AQMS3 

NRITE(6, 1007INHSTOT.NOHS2.NOHS3 
IF (IT  YPE.EQ.1IGGTC220 
C RcAO  USER  INPUT. 

CALL  RE  AO  IN' 

220  CALL  TIHEC 
RETURN 

230  NRITE(6il006tNITOT,NFTOT 
NRITE(6 ,1006)NI,NF 
CALL  TIHEC 
CALL  EXIT 
RETURN 

lCaO  F ORMAT ( 16 15  I 

1C 0.1  FORHAT  (5E12. 0> 

1002  FORHAT ( 1CA8) 

1003  FORHAT (37H1INPUT  FOR  BRANCH-ANO-BOUAO  ALGORITHM/ 

1 21H0 INT EGER  PARAMETERS  =, 1 (I7/21X, 317) 

1004  FORMAT (21H0  REAL  PARAMETERS  =,5El5.6) 

1005  FORMAT ( 21HGPROGRAK  IDENTIFIER  = ,4X,10A8) 

1006  FORMAT (44hOAOEQUATE  DIMENSIONS  FOR  ARRAYS  IF  ANO  F ARE. 110. 


£0X10115 
B0X1Q116 
BOX10117 
80X10118 
80X10119 
BOX1012C 
80X10121 
80X10122 
80X10123 
80X10124 
80X10125 
BOX  10 12  € 
80X10127 
80X10126 
80X10129 
80X10130 
80X10131 
80X13132 
80X10133 
80X10134 
80X10135 
80X101 3E 
80X10137 
80X10138 
80X10139 
80X10 14C 
80X10141 
80X10142 
80X10143 
80X10144 
BOX  10 145 
80X10146 
80X10147 
80X10148 
80X10149 
80X10 150 
BOXlO 151 
BOX 10 152 
BOXlO 153 
80X10154 
80X10155 
80X10156 
BOXlO 157 
80X10158 
80X10159 
80X10 16C 
80X10161 


EXHIBIT  4 (Continued) 


SUBROUTINE  80X2  (NZ.NP.IR.I A, INT , ICC, IS , I NUSE.NV, I8V.NBV, IUPPER, 

1 TC,B0RIG,RHS,C2,Cl,BI,8N,U,PJ,8INtf,XJ,XN0T, 

2 SIGNAL, SIGMAU, V, XZ , SO, SI. B.N01 ,N02 , NOS ,N04 ,N05 , 

3 N06 , NOT , NOS , N01 0 I 
C SOLVE  THE  FIRST  SUBPROGRAM. 

COMMON/ Pl/N, M, I TYPE, NSTRA T, NOORL 1 ,NBVRL 1 , NTIT El, N00RL2, N3 VRL2 • 

1 NTITE2.MXLIST.LIST0P, JT APE, IFB • MXITER ,M0I NV, IOUTPT, 

2 IT  RACE , MST  ART , T IME 1, T0L1.T0L2 , PCBUB, ALPHA (10> 

COMMON/ P2/EP SI ,EPSIM, £IGN,8£GTh,M1, M2, H3,M4«N1,HP1, HP2.NH3 ,NM1M2, 

1 NM1M3 , N IP 2, NP1 , KSUM, N TC  ,M10 

COHHON/P3/NOONOT , UNOT , IBU BO P,L  PHASE , NOO RUL, NBVRUL, NTIGHT, NLIST. 

1 NL 1ST  S, NFEAS.LSTMX.ITRT (T,ITRHAX,BLB, NBRNOO ,P6RN00, 

2 NBRVAR, NUPDMN.XBRNOO, TBRNOO,NOOE,LNOOE ,Z, EOUNOL  •8CUNDU, 

3 TSIG,IFEAS,IBRVRl,IUPtNl,XBRVRl,IBRVR2, IUP0N2 .XBRVR2, 

4 L10, NITER, N3INV ,N7 , IPHA SE ,NPHASE, NM3M 7,1 ALGO, IECJ 
DIMENSION  INTINC1  ),ICC(NC1>  , IS (N04I , INUSE (NOIOI 

DIMENSION  B CRIG (NL4  ), RHS (N04) , C2 ( ND1 l,U (N06 I ,PJ (N C4> , KNOT (N01I, 

1 SIGNAL  ( NQ6)  , SIGMAU  (NOB  ) ,XZ(N06),SO  (NOB)  , SUNOS! 

IF (ITRACE.G£.1IHRITE(6,1CCT) 

C INITIALIZE  THE  eEST  UPPER  SOUNO  AND  LIST. 

LPHASE=1 
NODNOT=fl 
00 10  0 J= 1 , N 
ISO  XNOT  ( J ) = C . 0 


80X20001 
BOX20002 
BOX20GO 3 
BOX2000 4 
80X23005 
80X20  C J 6 
BOX20007 
80X20008 
80X23  0 3 9 
80X20010 
80X23011 
30X20012 
80X23013 
80X23014 
80X2001 5 
80X20016 
80X20317 
30X20018 
80X20  0 19 
80X20020 
BOX20021 
80X20022 
BOX20023 
80X20  C 2 4 


NLIST=C 
NLISTS=0 
NFE  #S=0 


80X20025 

80X20026 

80X20027 


lstmx=o 

ITRTOT=0 
ITRMAX=0 
001101=1, MXLIST 
110  INUSE( 11=0 

NOORUL=NOCRL1 

NB VRUL=  NBVRL 1 

NT IGHT=NT IT  El 

P8RNOO=1.0 

NUPQHN=1 

N0DE=1 

N8RN00=C 

IF (IOUTPT .NE.CI WRITE (6,1000 INOOE, NBRNOO 
C ESTABLISH  THE  UPPER  BOUNDS  FOR  THE  FIRST  SUBPROGRAM. 
00120 J=1 . N1P2 

120  U(JI=SIGMAU ( J I -S IGMAL ( Jl 
C ESTABLISH  THE  COST  DATA  FOR  THE  FIRST  SU8PR CGRAM. 
TSIG=0.0 
00150 J=l, N 
K=ICC(J) 

IF (K. EQ .0 IG0T014Q 


80X20028 

80X20029 

80X20030 

80X20031 

80X20032 

80X20033 

80X20034 

80X20035 

80X20036 

80X20037 

80X20038 

80X20039 

80X20040 

80X20041 

80X20042 

80X20043 

80X20044 

80X20045 

80X20046 

80X20047 

80X20048 


CALL  GETOBJ  (K, SIGNAL (J) , FO I 
TSIG=TSIG  ♦ FC 

IF(A6S(U(U! I.LE.T0L2) GOTO 130 


80X20049 

80X20050 

80X20051 


CALL  GETOBJ  (K,SIGMAU(J> ,F1I  80X20052. 

C2(J»=(F1-F0)/U(  » 80X20053 

60T0150  80X20054 

130  C2 ( J)*0 . 0 80X20055 

GO TO  ISO  80X20058 

140  TSIG»TSIG  ♦ C2(JI •SIGNAL ( J»  80X20057 
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EXHIBIT  4 (Continued) 


150  CONTINUE 

IFUOUTPT  .LE  . 1>  GOTO190 
NRITEI6,1001)TSIG 
NRITEI6. 10021 
OO170J=l,N 
MINT  (Jt 


80X20056 

80X20059 

80X20060 

80X20061 

80X20062 

80X20063 


L=ICCt J)  80X20064 

IF (IOUTPT .G£.3)G0T016D  80X20065 

IF  I K.EQ. 0 .AND.  L .EQ. 0 > CO  TO  179  80X20066 

160  HRITEI6.1Q03 I J.K, L, SIGNAL  IJ I .SIGH 1UIJI.C2IJI  BOX20067 

170  CONTINUE  80X20068 

IF  (IOUTPT  .LE.2T&OT0190  80X20069 

IF  INH1H3.EQ.NIGOTO190  80X20070 

0016  0J- NP1 1 NN1H3  80X20071 

180  WRITE  16 , 10 0 4 I J, SIGNAL ( J I , SI  GHAUT  J I 80X20072 

19G  CONTINUE  80X20073 

C ESTABLISH  THE  RIGHT-HAND- SIOE  FOR  THE  FIRST  SU8PR0GRAP.  80X20074 

002301=1. HP1  80X20075 

200  RHSI 11  = 80  RIGID  BOX20C76 

IPHAS£=1  80X20077 

00230J=1,N  80X20078 

IFIABSISIGHALIJT). LE.EPSI TGOTO230  80X20079 

002101=1. HP1  80X20060 

210  PJ(I>=0.0  80X23081 

CALL  GETCOL  (NZ.NP.IR ,1 A , IS .TC.RHS, C2.C1 .PJ.N01 . N02.N03.N04 ,N05,  8OX20C82 

1 J, K2EROS I 80X23083 

0022011=1, NZEKOS  80X20064 

I=IS(I1I  B0X23C85 

22 0 RHSI I T *RHS II I - PJIII’SIGHALIJ)  8OX20C86 

230  CONTINUE  80X20 C8 7 

C ESTABLISH  THE  INITIAL  BASIS.  eASIS  INVERSE.  ANO  VALUES  OF  THE  BASIC  80X20068 
C VARIABLES  FOR  THE  FIRiT  SUBPROGRAH.  80X20089 

CALL  INPUT4  INZ.NP, IR, I A , IS ,NV .18 l.NBV . IU FPER.TC .BORIG.RHS . C2.C1 . 80X20090 
. 1 BI.8N.U.PJ.8INV.3.N01. N02. N03, ND4, N05. N06.N0  7)  80X23091 

C OETERHINE  THE  APPLICABLE  LP  ALGORITHH.  80X20092 

CALL  INPUTS  INZ.NP.IR.IA.IS.ISV ,N8V« IUPPER.TC.RHS.C2. Cl.B I «L.PJ. 8.80X20 093 
1 N01.ND2.N03.N04.ND5. T06)  80X23094 

IF(IALGO.NE.O>GOT0240  80X20095 

IE0J=1  80X20096 


RETURN 

C SOLVE  THE  FIRST  SU8PRCGRAH. 

240  CALL  SIHPLE  INZ.NP, IR.I A .IS ,NV. 18 V.NBV, IUPPER. TC, FHS.C2.C1 ,81, BN, 
1 U.PJ.BINV.XJ.V ,XZ,B,N01,N02,ND3,ND4,ND5,N06,ND7> 

IF  II EOJ.NE.O) RETURN 
NFEAS=NFEAS  ♦ 1 
C PRINT  THE  SOLUTION. 

Z*Z*TSIG 
002503= 1.N1P2 

250  XZIJ)=XZIJ>  ♦ SIGHALI JT 
IFlIOUTPT.Ea.OTGO  TO 260 
NUP=N 

IF IIOUTPT .GE .3 ) NUP=NH1H3 
MRITE  16,100512 
HRITEI6.1006IIX2IJI.j3l.NUPI 
260  IF  IN06.EQ.il  RETURN 

IF  (N8VRUL.LE.2  .OR.  MIGHT.  EQ.6  TGOT0260 
C INITIALIZE  THE  SLOPES. 


80X23097 
80X20098 
80X23099 
80X23130 
80X20101 
80X20102 
BOX201Q  3 
80X20104 
80X2010  5 
80X2010  E 
80X20107 
80X20108 
80X20109 
80X20110 
BOX20111 
80X20112 
80X20113 
80X20116 
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EXHIBIT  4 (Continued) 


DO270I»i,M7 
S0(I)»0.0 
270  Sill) *0.0 
RETURN 

C OETiRMINE  THE  SLOPES  ASSOCIATED  WITH  THE  OPTIMAL  OBJECTIVE  VALUE. 

280  CALL  SLOPES  < NZ, NP, IR, I A, IS,IUV ,N3V ,IUPPER ,TC,RHS,C 2, Cl, PJ ,X J ,S0 , 
1 S1,B,N01,N02,N03,N04,N05,N08> 

RETURN 

1003  FORMAT (1H1.50 ( IHM/6M3NODE  , 1 5/20 HO 3RANCHE O FROM  NODE  ,15) 

1001  FORMAT ( 7HJTSIG  *,£15.6) 

100  2 FORMAT  C3HCVARI ABLE ,4X ,3HINT, 8X,2H CC, 12X, 5HL0MER ,12X .5HUPPER ,13X , 

1 4HC0ST/2X  ,6rtNUM8ER,3X,8HVARIA0LE,2X ,8HV ARIA3LE , 9X , 5HL IMIT, 

2 12X,5HLIMIT,9X ,1 1HCOEFFICI ENT/12X ,6HNUMBER,4Xt 6HNUMBER// > 
ICO 3 FORMAT (3X, 15,2 <5X, 15)  , 3X, 3 (El  5 . 6, 2X1 > 

100  4 FORMAT(3X,I5,23X,E15.6,2X,E15.6> 

1005  FORMAT (17H0 SOLUTION  VALUE  *,E15.6I 

1006  FORMAT (17H0VARIABLES  - ,6E1 5. 6/ (17X ,6E 15.6  I ) 

1007  FORMAT (13H  **••*60X2) 

ENO 


60X20123 
B0X2u 124 
30X20125 
00X2  0 12  6 
30X20127 
BOX20126 
30X20129 
BOX  2 0130 
30X2  j 131 
BOX20132 
30X20133 
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EXHIBIT  4 (Continued) 


SUBROUTINE  83X5  ( IN  LSE, KNOT  *CAPP , CARL  »N01»M018*  NOll* ICNTRYI 
C PRINT  THE  SOLLTICN. 

CONN ON/P 1 /N , H,1 TYPE .NSTRAT, NOCRL1 .NBVRL1 .NTITE1 . NOORL 2, NBVRLZ, 

1 NT  ITE2,HXLIST * LIS TOP i IT  APE ,IFB,NXITER tNBINV.IOUTPT, 

2 ITRACE,MSTART,TIME1,TCL1, TOL2  ,PCBU8, A LPHA (1 01 
COHMON/P3/NO CnOT  , UNOT , I 8U60P,LPHA SE , NOORUL , NBVRUL ,NTI GHT, NL IS T, 

1 NLISTS,NFEAS,LSTHX, ITRT  CT , I TRMA X , BL 3, NBRNOO .P8RN00 , 

2 NBRVAR, KUPOMN  iXBRNOOi T8RN00»N00E»LN00£,Z, BOUNOL , 8CUNOU, 

3 T SIC * IF £AS , IBRVRli IUP0N1 » X8RVR1 , I8RVR2 ,IU PON2  »X 9RVR2, 

4 LI  0, NITER, NaiNV,M7,IPHAJE,NPHASE.NN3M7,IALGO.IEGJ 
DIMENSION  INUSE (NC1C I 

DIMENSION  XNOI (KOI > ,CAPP CNOIOI ,CAFL (NOll) 
IF(ITRACE.GE.in<RIT£(6,1017> 

C PRINT  OUT  PROGRAM  IDENTIFICATION. 

MRIT  E (6,10G0)N,H, ITYPE, NSTRAT, N0DFL1,NBVRL1*NTITE1,N00RL2, 

1 NBVRL2  »NTITE2» HXLIST ,LIST0 P , IT APE , IF8, KXI TER , 

2 K0INV , IOUTPT iITRACE t MSTART 
NRITE (6 ,1001 1 TIME 1,TOL1,TOL2, UNOT, PCSUB 
MRITE(6,10G2)ALPHA 

C PRINT  OUT  THE  SOLUTION  OR  THE  CURRENT  BEST  SOLUTION. 

IF (IE NTRY.EO.il  GO TO 100 

NRITE (6(1003) NOONOT 

REMINO  9 

REHINO  10 

NRIT  E (9 1 NOONCT 

NRITE (10) NO [NOT 

END  FILE  9 


ENO  FILE  10 
G0T0113 

100  NRITE (6, 1004 INOONOT 
110  NRITE(6#1005)UNCT 

NRITE (6 • 10G  6 1 (XNOT ( I) , I=1,N) 
NRITE(6,100  7 1 NODE 
NRITE(6il00S)NFEAS 
NRITE(6,10091LSTMX 


NRITEI6.1010IITRT CT 
NKIT£(6,1Q11)IT  RNAX 
IF (IENTRY .NE . 1) GOTOIBO 


C PRINT  OUT  THE  LIST. 

NRITE(6.1012)NLIST 

INOEX=0 

IF(NSTRAT.EQ.2)GOTO120 
IF (NOORL 1 «EQ<  1) GO  TO  140 
GOTO130 

120  IF ( NOORL 2 . EQ. 1) GO  TO 14  0 

IF (cPHASE.EQ.l  .A  NO.  NOORLl .EQ.l I GOT0140 
130  IN0EX=1 


NRITE (6, 1013 1 
60  TO  150 

140  NRITE(6,1014) 

150  001701=1, HXLIST 

IF (INUSE (I) .EQ.CIGPTO170 
IF (I NOEX • EQ • 0 I GOT  Ci uO 
NRITE (6 ,1015) INUSE (I),CAPP(I) 

GOTO170 

160  NRITE (6,101 £) INUSE (II ,CAPP(  1 1 , CAP  KI ) 
170  CONTINUE 


80X50001 

80X50012 

80X50003 

BOX50004 
SOX5000  5 
80X50006 
80X53007 

80X50  c o a 
80X50009 
BO X5 00 10 
BOX50011 
BOX50012 
BOX59013 
BOX50014 
80X50015 
BOX50016 
BOX50017 
80X50016 
80X50019 
80X53020 
BOX50021 
80X50022 
BOX50023 
80X50024 
80X50025 
80X50026 
BOX50027 
80X50028 
80X50029 
80X50030 
BOX500  31 
BOX500  32 
80X50033 
80X50034 
80X50035 
BOX50036 
80X50037 
BOX50038 
BOX500  39 
80X50040 
BOXS0041 
80X50042 
80X50043 
80X50044 
80X50045 
BOX50C46 
80X50047 
80X50048 
BOX50049 
80X50050 
80X50051 
80X50052 
80X50053 
BOX5005  4 
80X50055 
80X50056 
80X50057 
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EXHIBIT  4 (Continued) 


160  CALL  TIMEC 

re  turn 

1030  F ORMAT * 21  HI  NTECER  PARAMETERS  «,1 (I7/21X, 317) 
1601  FORMAT I21H0 REAL  PARAMETERS  »,5E15.6) 

1C02  FORMAT 1 21  HO  P.RQGRAM  IDENTIFIER  =,AX,10A8) 

1003  FORMAT (66H0THE  SOLUTION  TO  THE  INTEGER  CONCAVE 
10  dY  NO JE  ,15) 


•0X50650 

•0X50059 

•0X506(0 

60X50061 

BOX50C62 

PROGRAM  NAS  PROVIOEBOKSOCbS 
60X5006 A 


16  3 A FORMAT  * 79H0IHE  CURRENT 
IN  HAS  PROVIDED  oY  NODE 


BEST  SOLUTION  TO  THE  INTEGER  CONCAVE  PROGRABOX53C65 
,15)  60X50066 


1005  FORMAT* 17HOSOLUTICN  VALUE  3,EJ5.6> 

1006  FORMAT  1 17H0 VARIABLES  =,6tl5. 


6/I17X.6E15.6) ) 


10G7  FORMAT (3AH0THL  NUMBER  OF  NOOES  EXAMINED  HAS  ,15) 

1006  FORMAT ( 32H  THE  NUMBER  OF  NOOES  SOLVED  HAS  ,2X,I5) 

1009  FORMATI27MOTHE  MAXIMUM  LIST  SIZE  kAS  ,15) 

1010  FORMAT(5AFOTHE  TOTAL  NUMBER  OF  SIMPLEX  ITERATIONS  PERFORMEO  HAS 

1 17) 

1011  FORMAT «51H  THE  MAXIMUM  NUMBER  PERFORMED  ALONG  ANY  BRANCH  HAS  , 

1 3X.I7) 

1012  FORMAT (26 HO  THE  CURRENT  LIST  SIZE  IS  ,15) 

1613  FORMAT* 1M0,3X, AHN CUE, 9X, 5 ML  ONER/ 17X ,5  MB CUND//) 

101 A FORMAT(1MC,3X,AMNCOE,9X,5HLOU£R,8X,10MPROCESS1NG/17X,5HBOUNO, 

1 11X, 5HORCER//) 

1015  FORMAT (3X«I5,2X,E15<6) 

1016  FORMAT (3X,15,2X,E15,6,2X,F11,0) 

1017  F ORMAT *10 H *****8CX5) 

ENO 


60X50067 

60X50068 


60X50069 
60X50070 
BOX50C71 
60X50072 
60X50C73 
BOX5007A 
BOX53C75 
60X50C  76 
BOX50C77 
60X50078 
80X50079 
60X50080 
60X50081 
60X50062 
80X50063 
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EXHIBIT  4 (Continued) 


SUBROUTINE  BOX7  ( INUSE , CAPP ,ND10 I 

C DETERMINE  THE  BEST  LOkER  dOUKO. 

COMMON/ Pl/N, M, x TYPE ,NSTR AT, NOCKL1 .NdVRLl. NTITE1 , NOORL2, NB VRL2, 

1 NUTE2.MXL1ST , l IS TOP , IT  APE , IF E , KXITER ,M£INV  .IOUTPT, 

2 IT RACE. MS TART  , TIME1 , TCL 1, T0L2 tPCBUB , ALPHA U 0> 

COMMON/ P2/EPSI.EP SIM,  dl  GN  ,BECT  M,  M 1,  M2,  M 3,  M«*.  N1 , MP1,  MP2 , NM  3 , NM1M2  . 

1 NM1M3,N1P2,NP1,NSUM,NTC,H10 

COMMON/ P3/NO ONOT, UNOT , I BueOP.LPHA SE,N00RUL,N9WRUL,N TIGHT, NLIST, 

1 N LISTS, NFEAS.LSTNX.ITRT  CT ,ITRHAX,8LB, NBRNOO • PBR NOD . 

2 NdRVAR, NUPO MN  ,X  BR  NOD , TBRNOO , NOGE, LNOOE ,2, BOUNOL , 6 CUNQU , 

3 TSIG, IFEAS, IdRVRl, ILPONl, XBZVRl ,I0RvR2, IUFON2 ,X6RVR2, 

<•  L10  .NITER, NdINV,M7, IPPA SE .NPHASE .NM3M7.1 ALGO, IE Cj 

DIMENSION  INUSE(NOIO) 

OIHENSION  CAPP (NO It I 
IF  (ITRACE.GE.1)NRITEI6,10C0> 

BLB- BIGN 
00 12 01=1, MXL 1ST 
IF (INUSE (II . EQ. CJ GOTO  100 
IF (CA PPII I.GE.dLd  IGOTOIOO 
BL8-CAPP( I) 
let  CONTlNUc 

return 

1100  FORM ATI10H  ****»dCX7> 

END 


80X70001 
80X70002 
SOX73CO 
BOX73CO 
80X7000 
80X7300 
BOX  70  0 0 
BOX 7 00 3 
90X7000 
BOX70C1 
BOX  70  01 
80X700  1 
BOX73C1 
BOX7CC1 
BOX73C1 
80X73Clb 
BOX7CC17 
60X73018 
BOX 73  L 1 9 
BOX7C02G 
60X73(21 
60X7 3t  22 
BOX73023 
60X7302*. 
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EXHIBIT  4 (Continued) 


SUBROUTINE  BOX  lb  (INUSE  ,CAPP,CAPL  ,NOly  ,NDl  1) 

C SELECT  A NODE  FROM  THE  LIST  ANO  PUT  IT  IN  THE  SUBLIST. 

COMHON/Pl/N,M,ITTPE,NSTRAT,NODRLl ,NBVRLlfNTITEl ,N0DRL2,NB0RL2, 

1 NTITE2.MXLIST, LISTOP.IT APE, IFB ,NXITE R ,NBI NV , IOUTPT , 

2 ITRACE»MSTART,TIMEl,TOL 1 , TOL 2 , P CBUB, ALPHA (10) 

COHHON /P3/NOON  OT . UNOT f I BUBUP  » LP MA  SE  > NODRUL ,NBV RUL ,N 1 1 Gri T , NLI  S T , 

1 NLISTS»NFEAS,LSTHX,ITRTOT,ITRMAX ,BL3 .NBRNOD .PBRIJOD, 

2 N8R\f  AR » NUPO WH  .XBRUOO , TBRNOO, NOO. ,UMOE , Z , 30UN0L , 30UNDU , 

3 TSIG  , IFcAS,  IBRVR1,IUP0N1,XBRVP.1,  IBRO R2 , IU PDN2,  X3R0R2, 

4 L10  , NITER, N 81 NV,M7,  IPrtASE  ,NPHASE  ,NM3M  7, 1 A LG  0 , 1 EOJ 
DIMENSION  INUSE (NC10) 

DIMENSION  CAPP (NOl  j ),CAPL(ND11) 

IF(ITRACE«G£.1)HRITE(6,1QG0> 

C SELECT  THE  NOOE. 

PBRNOOxJ.g 
DO100I=l,MXLIST 
IF ( INUSE (I) .EU.y (GOTOlOO 
IF (CAPP (I) .GE. UNOT) GOTO 1JL 
IFICAPLtll.LE. PBRNOD) GOTOlOO 
PBRNOO=CAPL (I) 


I0«I 

100  CONTINUE 

C PUT  IT  IN  THE  SUBLIST. 

INUSE (IO)x-INUSE(IOI 

NLISTSsNLISTSM 

RETURN 

1000  FORMAT (11H  ••***80X10) 
ENO 


60X10001 
BOX100C2 
BOX  10  CC  3 
aoxi.'.y  a 

BO  X 1 0 l C 5 
80X1C3C6 
BOX1  j 3C  7 
BOXlj.i  8 

boxic:c9 

00X10310 
BOX  1 0 Gil 
BOX  1 j . 12 
BOX  1 0 3 1 3 
B0X13C14 
BOX10G1S 
BO  X 1 J 3 1 6 
BOX  13  01/ 
BOX10318 
80X10019 
BOX 1 0 C23 
60X10021 
BOX  ^ 22 
60X10323 
BO  X 10  0 2 4 
80X10025 
B0XU.26 
BOX  100 27 
BOX  1 0 02 8 
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EXHIBIT  4 (Continued) 


SU8R0UT INC  80X12  ( INUSC , IMS, C2 ,CA fP.CAPL .SIGMAL , SIGMA U, Si  OLD, 

1 SUOLO , C20L0.FMS .ND1.N06 .NO9.N0 10 , N011 , N DHS2, 

2 N0HS3) 

C SELECT  THE  BRANCHING  NOOE  FROM  THE  SUBLIST  (PHASE  1)  OR  THE  LIST 
C (PHASE  21. 

CONHCN/Pl/N,M,ITrPE,NSTRAT,NOORLl,NBVRLl,NTITEl,NODRL2,NBVRL2, 

1 NTITE2,NXLIST,LlST0P,lTAPE,IFd,HXITER  ,HdINV , IOUTPT , 

2 X T RACE  > HST  ART , T IHE1 1 TOL 1> TOL2 .PCBUB, AlP FA (10 J 
C0HH0N/P2/EPSI ,EPSIM,8IGN»BEGTH,M  1, H2 ,H 3 , H4 ,N 1, MP1 , MP2 , NH 3 , NM1M2 . 

1 NH1H3,N1P2,NP1,NSUM,NTC,M10 

COHMON/  P3/NODNOI,  INOT  . I BU80P.LP  P A SE  , NODRUL  , N8  4RUL » Nil  GHT , NL  1ST, 

1 NL 1ST S i FFEAS,LSTHX,ITRT  CT  > I TRMA  X , El0, NBRNOO ,P6RNOO, 

2 N ERV  A R , NUPOHN , X BRNOC, T BRNQO • NODE • L NOOE ,Z • BOUNOL  .BCUNQU, 

3 TSIG,IFEAS, IdRVRl,IUPCNl,X8RVRl,IBRVR2,IUP0N2,XBRVR2. 

4 L1C,NITER,NBINV,M7, IPH A SE , NPHASE , NM3M 7, l ALGO, IE OJ 
DIMENSION  INUSE (N010I ,IHS  (N0MS2I 

DIMENSION  C2 (ND 1 ) .CAPP(NOIO) .CAPL (N011I , SIGNAL ( N06) .SIGMA U(N06> , 

1 SL0L0(NC6I, SUQLC(N06I ,C20LO (N09), FMS( N0MS3I 

IF (1TRACE.GE.1JHR1TE(6,10CO» 

IF  (IBUBOP.ECt.  Cl  GO  TO  11 9 


SllECT  THE  BRANCHING  NOOE  FROM  THE  JUBLIST. 


PdRNOO=C • 0 
00 13  01=  l,  MXL  1ST 
IF(INUSe(I>.Gt.C)GOTO100 
IF(CAPL(I) .LE.PBRNOO) GOTO  10 9 
PBRNOO=CAPL(I) 

NdRNOD= -I NUSE (I I 
10  = 1 

190  CONTINUE 

OECREHENT  THE  SUBUST  COUNTER. 
NLISTS=NLISIS-1 
G0T015Q 


ScLECT  THE  BRANCHING  NOOE  FROM  THE  LIST. 


110  IF (NOQRUL.EO.il GO  TO  130 
C FRICRirr  NOOE  SELECTION  RULE. 
BLB=8IGN 
001201=1, MXLIST 
IF (INUSE (I) .EQ. C) GOTO120 
IF(CAPP(l).GE.BLB)GOTO120 
BLB=CAPP( II 
NBRNOO=INUSE(I> 

10  = 1 

120  CONTINUE 
GOTO150 

C LIFO  NOOE  SELECTION  RULE. 

13C  PbRNOO=i.O 

001401=1, MXLIST 
IF  (INUSE(I)  .EQ.  OG0T0140 
IF (CAPL (I  I .LE.P BRNO 01  GO TO 140 
PBRNOO=CAPL (I) 

NBRNOO= INUSE  (II 
10  = 1 

140  CONTINUE 


80X1009  1 
BOXIOt 92 
80X1 9 C 9 3 
80X1000  4 
80X10  COS 
BOX10C06 
80X19307 
80X10036 
80X13039 
00X13013 
00X10011 
BOX  10  G 12 
BOX  1 30 1 3 
30X1CC14 
box i oris 
BOX 10  C 16 
BOX10C17 
BOX10C16 
BOX  13  0 19 
BOX  1 3 C 2. 
BOX  IOC  21 
BOX 1 3 C 2 2 
‘BOX  lOC  2 3 
BOX  13  0 2 4 
BO  X 13  C 2 5 
BOX  13  C 2 & 
BOX19C27 
00X13328 
BOX 1 3 3 23 
BOX  1 3 C 3 u 
BOX  13  C 31 
80X19332 
BOX1DC  33 
BO  X 1 3 3 3 4 
80X133  3E 
BOXIOO  36 
BOX193  37 
BO  X 1 3 G 36 
BOXl3u39 
BOX13C43 
BOX  1 C 941 
BOXIOO  42 
BO X 13  C 43 
BOX  13  C 4 4 
BOX 1 3 C 45 
BOX13346 
80X13347 
BO  X 13  0 46 
80X13349 
BOX13C53 
BOX13051 
BO  X 10 1 5 2 
BOX10C53 
BOX  13  C 5 4 
BOX1005S 
80X10056 
80X10057 
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EXHIBIT  4 (Continued) 


C DECREMENT  THE  LIST  COUNTER. 
150  INUSE (1 U t =0 
NLIST=NLIST-1 


RE  AO  IN  THE  OAT  A FOR  THE  BRANCHING  NOEE. 


IF (NODE .EC. K8KNC0  ) GOT 020  0 
CALL  REAOHS  < 2 , I M i , NUMS2 , 10 ) 

CAUL  REAOHS  U.FMIjNDMSStIO) 

IBRtfRl=IHSIl> 

IUPONl=IHS(2» 

Lid- INS (31 
NI  TER=I  i*IS  <41 
NBlNO— IMS  C5) 

M7=IMSC6) 

IPHAS£=1MST 7 T 
NPHASE- 1 MS ( 8 ) 

NM3M  7=1  MS (9  T 
IF (NSTRAT .EQ. IT  GO  1016  0 
IBRVR2=IMST101 
1UP0N2=IHSC111 
16!,  2 = FMS { 1 ) 

TsIG=FMs (2) 

XdRVRl=FHS ( 3 I 
IF  1NSTRAT.EQ.1) G0T017G 
XBRV R2=F  NS  < 4 I 
170  00183J=1»  N1P2 

SIGNAL  < J > = SLCLO  1J ) 

130  SIGMAUT Jl =SUOLOIJ> 

IFTITYPE.EQ.11GOTO20G 
0019  0J= 1 1 N 
191  C2(J)=C20LD(J> 

2 uO  TURNOO=TSIG 

C A L JUST  THE  BRANCHING  WAFIA8LE  SELECTION  ACCORC1KG  TO  THE  CURRENT 
c phase  cf  the  algorithm. 

IF  TNSTRAT .EQ.1TGU1U213 
IF (L PHASE .tQ.l)G0!0213 
NbRV AR= 18RVR2 
NUPUHN=IUF0N2 
X6RN0D=X8RUR2 
RETURN 

210  NBRVAR=1BRVR1 
NUPO  HN= IU  FDN 1 
XdRNOD=XBRI/Rl 
RETURN 

It  J 0 FORMATT11H  •****90X121 
ENO 


90X1305# 
80X13059 
90X1 0 C 60 
‘BOX13C61 
BO  X 1 3 C6  2 
‘BOX1006  3 
BOX  1 3 0 6 A 
BOX 10  C 6 5 
BOX 10  C b o 
6OX10CG7 
BOXlG  3 63 
B0X13C69 
BO  X 1 0 C 7 3 
80X10071 
8OX10C72 
BOX  13  3 7 3 
80X1307*. 
BOX l 3075 
BO  X 13  C 7 b 
BO  X 13  C 7 7 
BOXlOt  2 9 
BOX13C  29 
80X13183 
90X10031 
BOXIOC  82 
BOX  1318  3 
BOXIOC  8*. 
BOX  13  C 8 5 
BOX  1 0 C 8 E 
BOX13C87 
BOX  1 3 C 8 8 
30X13089 
BOX13390 
BOXIOC 91 
60X13392 
BO  X l 3 1 93 
BOX  13 1 9 A 
BOX13C9E 
90X13C  96 
BOX 1 0 0 9 7 
BOXIOC  98 
80X13099 
30X13  ISO 
BOX 1 0101 
BOX 1 3132 
UOXIQ13  3 
BG  X 1 3 1 3 9 
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EXHIBIT  4 (Continued) 


SUBROUTINE  00X13  IINT, ICC, I6V.C2, SIGNAL, SIGMAU.XZ.SC , SI, SLOLO. 

1 SUOLO  , NE1«N04,N  16  ,NU  8 1 

C 1IGHTEN  THE  LIMITS  ON  THE  MONOTONE  VARIABLES  (PHASE  1)  OR  TIGHTEN 
C THE  LIMITS  ON  ALL  VARIABLES  USING  THE  BEST  UPPER  GO  INC  (PHASE  2). 

COMMON/P1/N,M,ITTPE,NSTRAT,NOORL1,N8VRL1,NTITE1,NOORL2,N3VRL2, 

1 NT  ITE2,  MXLIST.LISTOP,  IT  APE , IF  d , FX  IT  ER  ,MflINV  , I OU  T PT , 

2 IIRACE.KSTART ,TIME1 ,I0L1, T0l2 ,PC8 LB , ALP HA ( 1 0 » 
C0MM0N/P2/EPSI,EPSIM,aiGN,8EGTM,M  :, M2 , M3 , M4 , N 1 , MP 1 , MP2 , NM 3 , NM1M2, 

1 NM1M3,N1P2,NP1,NSUM,NTC,M10 

COMMON/P3/NOONOT,UNOT,IBUOOP,LPHAJE,NOORUL,N8VRUL,NT1GHT, NLIST, 

1 NLISTS,NF£AS,LSTMX, IIRT  CT , I TRMA X , EL  € , N 8RN00 .PfiRNOO, 

2 N8RVA R , NUPUHN ,XERNOC,T8RNOO,NOOE,L NOO E ,2 , BOUNCE  .BCUNOU, 

3 TSIG, IFEAS, I dRVRl , IUPON 1 , XBRVR1 , IBRVR2 , I UP0N2 ,X3RVR2, 

4 L1C, NITER, NQINV,MT,IPHASE,NPHASE,NM3il7,IALG0, IEOJ 
DIMENSION  INI  (NCI  ),  ICC  (N01)  ,I3V(NC4> 

DIMENSION  C2 (N01I ■ SIGNAL (NOB I , SI G FA <J (NO 6 I ,XZ(N06) ,S0 (NO 8 1 , SI  (NOS) 
1 SLOLO (NOB) ,SUOLC(N06) 

IF (ITRACE.GE.15HRITE(6, It  05) 

IF  (NTIGHT.EQ.l)REIUKN 
NCOUNT=0 

IF (UNO! .EQ. dIGN)G0T031Q 
IF ( I BUB OP. EQ.l) GO  TO  31 Q 


C TIGhTEN  IHE  LIMITS  CN  THE  BASIC  VARIABLES. 

00 3001=1, M7 

IFCI.EQ.MPDGOT0300 

J=l6V(l) 

IF  (ABS(SIGMAU(J)-SIGMAL (J))  . LE.  TOL2> GOT 030  0 
XZJJJ=XZ (J) 

IF  (XZJJJ.GT  .SIGFAK  J)  »TOL2>  GOIOIOO 
SC  (I  ) = -BIGN 
XZ JJJ=SIGMAL(J) 

GO  TO 1 1 0 

100  IFIXZJJJ.LT  .SIGMAU(J)-TOL2)GOTOHO 
SI ( I ) =0 IG  F 
XZ JJJ=SIGMAU (J) 

110  CONTINUE 
C ALL  VARIABLE  TYPES. 

V1=SIGMAL (J) 

IF  (SO  (I  I .EQ.-oIGN)G0T012C 
Tl=Z  ♦ S0(I)*(V1  - XZJJJ) 

G0T013C 
12C  I 1=B IGN 
130  IF  (J.GI .N)GOTO230 

IF  (INT(J) .EQ.u)GOTO230 

C INTEGER  LINEAR  OR  INTEGER  CONCAVE  VARIABLE. 

K=XZ JJJ 
V2=K 
V3=K*1 
K=ICC(J> 

IF ( K<  EQ. C ) GOTO150 
CALL  GETO0J  IK, VI, FI) 

CALL  GETOBJ  (K.V2.F2) 

CALL  GEIOBJ  (K,V3,F3> 

IF IS8I II .EQ.-dlGN  .AND.  ABSCXZJJJ-V2I . G T . T OL2 ) GO TOl 7C 
IF  IKdI.IQ.-eiGNIGOIOlAO 


BOXlOCOl 
BOXIOL 02 
BOX  IOC  0 3 
BOXIOCO  4 
BOX1CC35 
BOX  100  C 6 
BOX10C3  7 
80X13008 
BO  X 10  C 19 
aoxiocic 

30X10 C 11 
BOX  10  0 1 2 
BOX10C13 
30X10014 
BOX  10 ( 15 
,30X13016 
BOX  1 3 017 
BOX  1 J C IS 
BO  X 10  0 1 9 
BOX  10  0 2 3 
BO  X 1 0 t 2 1 
80X13022 
•BOX  ICC  2 3 
BOX10C24 
•BOX  1C  L 25 
BOX  10  C 26 
60X101 27 
80X10028 
BOX13C  29 
BOX10C3C 
BOX  101 31 
BO  X 1 0 0 32 
30X19033 
BOX  1 0 C 3 4 
BOX1033C 
BOXl 3 1 3 fc 
BOX  1 3 C 37 
80  XI 3 0 3 S 
BOX  100 39 
BOX13C4C 
00X10041 
30X10042 
BOXlOf  43 
BOX  1C  0 4 4 
BO  X 1 „ C 4 5 
Br«10C46 
30X10  C 4 7 
00X13048 
BCX130 49 
30 X 1 3 0 50 
BOXlO  0 5 1 
BO  X 10  C 5 2 
BOX  10053 
BOX1JG54 
BOX13055 
SOX10C5E 
BOX10057 
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EXHIBIT  4 (Continued) 


12-1  ♦ SQ  (I  )* (V2  - XZJJJI  ♦ F2  - CF1  ♦ C2 C J I* I V2-SIGHAL ( J I ) ) 
CO  TO  180 

140  T2  = Z ♦ F2  - IF 1 ♦ CCUIMVZ-SIGMAMJ))) 

GOTO180 

150  lF(S0(II.EQ.-dIGN  .AND.  ABS(XZJJJ-V2) «6T •TOL2)GOTO170 
IF  (50 (I  i.Ea.-BIGN)GOTO160 
T2=Z  ♦ SO  tl l*(V2  - XZJJJI 

Goroiso 

160  T2=Z 

G0T0183 
173  T2=BIGN 

180  IF  (SKI)  . EQ.BIGK  .ANO.  ABSC V3-XZ J JJ I . GT . T 0L2) GO TO220 
IF(K.EQ.CIG0T0233 
IF(S1(II.EQ.BIGMG0T019C 

T 3=Z  ♦ 51  (I)  MV3  - XZJJJI  ♦ F3  - (FI  ♦ C2  ( J I MV  3-SI  GMAL  ( J I)  I 
GOTO260 

190  T 3 = Z ♦ F3  - (FI  ♦ C2 ( J> * ( V3-SIGMA L ( Jl) I 
GOT0263 

230  IF  (51(1)  .EQ  .81GMG0T021G 
T3  = Z ♦ 51  (I  I*  ( 13  - XZJJJI 
GOTO260 
210  T 3=Z 

GOTO260 
220  T 3=dIGN 
GOT026C 

C LINEAR  OR  CONCAVE  VARIABLE. 

230  V2=XZ JJJ 
V3=V  2 

IF (J.GT.NIGOTU240 
K=ICC( J) 

IF (K.EQ.CIGOTO240 
CALL  GET03J  (K,V1,F1) 

CALL  GETOej  (K,V2,F 2) 

T2=Z  + F2  - (FI  ♦ C2(J)*(V2-SIGHAL(J)I) 

G0T025C 
240  T2=Z 
253  T3=T2 

C ALL  VARIABLE  TYPES. 

262  V4=SIGMAU (J) 

IF (SI (I I.EQ.BIGNIG0T027G 
T4=Z  ♦ 51(1  l*(V4  - XZJJJI 
GOT028C 
270  T4=SIGN 

280  CALL  AOJUJT  ( VI, V 2, V3, V4, T 1 , T 2, T 3 ,T 4, SL , SU I 
SIGNAL(J)=SL 
SIGMAU(J)*SU 
IF (J.GT .NIGO  TO290 
IF ( INT ( J) .EQ. u) GO  10290 

C FOR  INTEGER  VARIAoLES,  CHECK  THAT  THE  LOWER  ANO  UPPER  LIMITS  ARE 
C INTEGERS. 

K=SL 

SIGNAL (J) =K 

IF  (ABSISL  - SIGMAL(J)  I .GT.TOL2)  SI CMAL ( J I =K»1 
K=SU 

SIGMAU( J)*K*1 

IF (ABS (SU  - SIGNAC(J) I .GT .TOL2ISI  (MAU(J)=K 
C INCREMENT  THE  COUNTER  IF  THE  LIMITS  HAVE  CHANGEO. 


BO  X 1 0 0 5 8 
BOX  1305  9 

BOX13G63 
BOX 1 3 l 61 
80 X 1 3 G 62 
BOX  10  0 6 3 
BO  X 10  C 6 4 
BOX13C  6 5 
8OX10C66 
80X13067 
BOX13C68 
8GX13C69 
BOX  1317  0 
BOX13C71 
BO  X 1 3 C 7 2 
SOX  1 3 C 7 3 
BOX  1 3 0 7 4 
BOX  1 CC  7 5 
BOX13C  76 
30X13077 
BO Xl  2 0 73 
BO  X 1 3 1 7 9 
BOX13C8  3 
SO  X 13  C 8 1 
BO  XI 3 1 8 2 
80X13083 
BOXlOC'84 
50X10385 
80X10086 
80X130  67 
BO  X 13  5 6 9 
BOX  13  C 89 
BOX  13  0 93 
80X10091 
BOX  13  C 9 £ 
80X13 C 93 
80X13:9*. 
60X13C95 
30X13096 
BOX10L97 
BOX10C98 
BO  X 1C  0 99 
BO  X 10  10  0 
30X101* 1 
80X10 102 
BO  X 1 0 1 C 3 
80X10104 
80X1010 5 
BO X 13 1 3 { 
BOX  1C  10  7 
80X10U8 
BO  X 1 3 1 J 9 
BOXIO 110 
BOXlO 111 
BOXIO 112 
BOXIO 113 
BOX10114 
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EXHIBIT  4 (Continued) 


290  IF (ABS(SrGHAL(J>-SLOLU(JI ). GT.TCL  <> NC0UNT=NC0UN T *1 
IF (ABS(S1GM  AU  ( J ) - SUOL  0(  J ) )•  GT  • T CL  iT  NCOUNT  = NCOUNT »1 
300  CONTINUE 
G0T0373 


adjust  the  limits  on  .he  monotone  variables. 


310  003601=1 • M7 

IF<I.EQ.MP1)GUT036C 

J-ldV(I) 

IF (ABS(SIGMAU(J) -SIGNAL (JM . LE .T OL2 ) GOT  0360 
X2JJJ=X2(JJ 

IF  (XZJJJ.LE.SIGMAKJI  »TOL2>  GOTO 33  0 
IF (SO (I ) .NE .-8IGN  >GOTO330 
AOJUST  THE  LOWER  LIMIT. 

IF  (J.GT .NTGOTO320 
IF (I  NT (J) »EQ.O)GOT0  320 
K=X2 JJJ 
SIGNAL(J»=K 

IF  (A8S(XZJJJ-SIGMAl  (J>  » . GT.  TOL2)  SIGNAL  ( J)  =K*1 
GOT033Q 

320  SIGMAL(j) = XZ  JJJ 

33C  IF (XZ JJJ.GE. SIGMA L(J> -T0L2I GOTO iSC 
IF(il(I).NE.8IGN)G0T0J5C 
AOJUST  THE  UPPER  LIMIT. 

IF  (J.GT.NIG0TC34C 

IF  ( I NT  ( J)  .E Q . 0 ) GOTO  34  0 

K=XZ JJJ 

SI  GM  AU  ( J)  =K  + 1 

IF (A8S(XZ*.JJ-SIGMAU(J) ) .GT.TOL2I SIGMAU ( J> =K 
GOTO 350 

340  S1GMAU(JI=XZ JJJ 

increment  the  counter  if  the  limits  have  changed. 

350  IF (ABS(JIGMAl(J)-SLOLO(J) ). GT . TOL 2) NCOUNT =NCOUNT ♦ 1 
IF  (ABS(SIGMAU(J)-SUOLU(J)  ». GT . TCL 2) NCOUNT =NCOUNT ♦ 1 
360  CONTINUE 


PRINT  The  olo  and  new  limits. 


370  IFdOUTPT  .LE.2I  RETURN 
IF (UNOT ,EC.BIGN)G(TO380 
IF (I6U80P.EQ. 1) GO  TO 380 
WKITEI6.1000) NBRNUD 
GOT  0390 

380  WRITE(6|1001) NORN CD 
390  IF (NCOUNT. EU.C) CO  10410 
WRITE ( 6(1002) NCOU  T 
0040  01=1 1 M7 
IFd.EQ.MPlIGOT  040  0 
J= Id V (II 

IF (A3S(SIGmAl(J  I-SlOLD(J)  1.LE.T0L2  .ANO. 

1 ABS(SIGMAU(J)-SUOLD(J) J . LE . T0L2I GOT0400 
WRITE(6,1C03) J.SLCLC(J) , SIGNAL (J > ,XZ < J > ,S IGMAU ( J > , SUOLO < J I 
400  CONTINUE 
GO  TO  420 

410  WRITE(6, 10041 
420  CALL  TINEC 


BOXIO 115 
80X10116 
80X10117 
BO  X 10 1 1 6 
80X10119 
90X13 120 
80X10121 
BOXIO 122 
BOXIO 123 
BOXIO 124 
80X10 125 
BOXIO 12b 
BOX  13 127 
00X10128 
BOXIO 129 
aox:: i3: 
80X10131 
BOX  10 1 32 
80X101 33 
80X10134 
80X101 35 
80  X 1 . 1 3 c 
BOXIO 137 
BOX 1G 1 38 
BOX 1 0139 
90X10 140 
B0X13141 
80X1314? 
80X10143 
BOX1C 144 
BOXIO 145 
BOXIO 14b 
80X10147 
80X13148 
80X13 149 
BOXIO  15  k 
80X10 l5l 
dOXi: 152 
80X13153 
80X10154 
80X10155 
80 X 10 1 5 6 
BOX 1 0 15  7 
BOXIO 156 
B0X1C159 
80X13  160 
60X10161 
BOX1C162 
80  X 10 16  3 
80X10164 
80X10165 
BOXIO 166 
BOXIO 167 

aoxioi6a 

BOXIO 169 
BOXIO 170 
BOX10171 
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EXHIBIT  4 (Continued) 


RETURN  80X10172 

1000  FORNAX (1H0 ,50 ( 1H* )/52H0TIGHTEN  THE  LIMITS  ON  THE  BASIC  VARIABLES  F8OX10173 

10R  NOOE  ,15)  80X1017*1 

1001  FORMAT ( 1HQ , 50 ( 1H*) /56H0 AOJUST  THE  LIMITS  ON  THE  MONOTONE  VARIABLES 80X1^175 


1  FOR  NOOE  ,15) 

1002  FORMAT (12H0THERE  HERE  ,I5,23H  CHANGES  TO  THE  LIMITS./ 

1 1H 0,2X, 5HBASIC,11X,3H0L0,14X,3HNEH, 11 X, 8HVARI A BLE , 1 2X , 

2 3HNEH,14X,3H0L0/1X,8HVARIA8L£,2(9X,5HL0HER,3X) ,9X , 

3 5HVALUE,2<12X,5HUPPER)/6X,2(12X,5HLIMIT) ,17X, 

4 2(12X,5HLIMIT)//) 

100  3 FORMAT (3X,I5,1X,5  (2X,E15.b)> 

1004  FORMAT (37H0THERE  HERE  NO  CHANGES  TO  THE  LIMITS.) 

1005  FORMAT  <UH  •****BOX13) 

END 


80X10176 
80X10177 
80X10178 
00X1 J 179 
80X10180 
80  X 1 C 18 1 
80X10182 
80X1.1 183 
80X10166 
80X10165 


EXHIBIT  4 (Continued) 


SUBROUTINE  80X15  (NZ ,NP, IR, I* , INT , ICC, I S, AV, IBV  ,N0V, IUPPER ,TC , 

1 BORIC, RhS,C2,Cl.ei,BN,U,PJ,BINV,XJ, SIGNAL, 

2 SIGHAU, V, XZ , SO , SI ,SLOLO ,C20L0 ,B ,N01 ,N02 ,N03 • 

3 NOG , N05 ,N06 • NOT ,N08,N09) 

C -SOLVE  SUBPROGRAM  LNOOc. 

COMMON/ PI/ N, N,IT.YFE,NSTRAT,NOCRLl,NBVRLl,NTITEl,NCORL2,NdVRL2, 

1 NTITE2«NXLIST,LISTOP»ITAPE,IF3»HXITcR»MBINV,ICUTPT, 

2 I TRACE,  MSI  ART  , TIHE1,  TOL 1, TOLZ ,PCBUd,  ALPHA  110  > 

COMMON/ P2/EPSI,EPSIM,UI GN »BcGTM,MltH2tM3»MA,Nl,hPlt HPZ , NN  3 , NN 1NZ, 

1 NM1M3 , NIP  2 , NP1,KSUH,NTC,H1D 

COMMON/ P3 /NOONO I , UNOT , I BUBQF, LPHA SE , NOORU  L » NBVRUL  ,N TIGHT , NLIST , 

1 NLISTS,NFEAS,LSTHX,  I TR T CT , I TR MA X , 8L 6 , N8RN00 ,P BRNOO, 

2 NBRVAR, NUPOMN ,XBRNOQ,T8RNOO,NOOE , LNODE , Z , BOUNDL , 6CUN0U, 

3 T SIG,IF EAS, ldRVRl,IUPONl,XBRVRl .IBRVR2 .IUFOnZ .X8RVR2, 

A L10,NITER,NBINV,M7,IPHASE,NPHASE,NM3H7,rALGO,IEOJ 

CO MM ON/ PA/S  A WE , KdR  AN , XI 

OIMENSION  I NT (NOl) , ICC (NOl) , IS  (NOA)  ,18V (NOA I , N8V (NOS ), IUPPER  (NOS I 
DIMENSION  dCRi  G (N  CA  ) , RHS  ( NO  A ) ,C2  ( NOl ) , BI  ( NOA I ,3N  (NOS  ) , U <N06 1 , 

1 P J (NOA)  ,SIGMAL(N06I ,SIGKAU(N0bl ,XZ(N06> ,SLOLQ(N06>  , 

2 CZOL  0 (NO 9 1 , d (NO A, NO A I 
IF (IT RACE.GE.il  WRITE (6, IS  15) 

NOOE  =NOOE  ♦ 1 

IF  (ICUTPT  .NE .t)HRIT£C6,1000)NODE, N8RN00 
IF  (LNOOc. EU.2IGCTC290 


C INITIALIZE  THE  OATA  REUUIKEO  FOR  SUBPROGRAM  1. 

IFIXBRNOO.LT. SIGNAL (NBRVAR) I XJRNQC=SIGMAL (NBRVAR) 
1FIXBRNC0.GT.SIGMAU (NBRVAR) ) X 6RN0  C=SI GMAU (NBRVAR) 

C MOOIFV  THE  UPPER  LIMIT  FOR  THE  BRANCHING  VARIABLE. 

SA VE  =SI GM (U ( NoR VAR ) 

I F ( I NT ( NBRVAR) .SE.C  IGOTOllQ 
C BRANCHING  ON  A CONCAVE  VARIABLE. 

100  IFIIQUTPT.NE.OHP,  ITE(6,1001> NBRVA F,ICC(NBRVAR) 
SIGMAU(NBRVAR)= xbrnoo 
K8RAN=0 
GOTOIZC 

C BRANCHING  ON  AN  INTEGER  VARIABLE. 

110  K=  XBRNOO 
XC=K 
X1=K*1 

IF ( ABS ( XO-XBRNOG) . LE. T0L2  .AND.  I CC (NBRVA R ) .NE. C IGOTO 100 
IF  (AB5( X 1-XBRNOC)  .LE.TOLZ  .ANO.  I CC ( NBRVAR) . NE. C I GOTOIO 0 
IF  (IOUTPT.NE. 0) WRITE(6,10CZ) NBRVA  f, INT (NBRVAR) 
SIGMAU(NBRV AR) =XC 
KBRAN=1 

C ESTABLISH  THE  UPPER  LIMITS  FOR  SUBPROGRAM  1. 

1ZC  OO130J=l, N1P2 

1JC  U(J)=SIGMAU (J)  - SIGMALIJ) 

C ESTABLISH  THE  COST  DATA  FOR  SUBPROGRAM  1. 

OOlAOJs 1, N 

1AC  T6RNOC=TBRNOO  ♦ C 2 ( J) * ( SIGH AL ( J)  - SLOLO(J)) 

TSIG-T6RN(0 

C ESTABLISH  THE  RIGHT-HANC-SIOE  FOR  SLS PROGRAM  1. 

00 15  01*1,  M7 
ISO  RHS (I)-dOPIG(II 
OO180j=l,NlP2 


BOXIOOOl 
80X10002 
80X10003 
BOXIOGG A 
BOXlOCOS 
BOX  10  0 OG 
80X10007 
60X10008 
BOXIOS  0 9 
BOXlSO 10 
00X13011 
30X10012 
80X13013 
SOXlOOlA 
80X10015 
80X10  C 16 
80X10017 
30X10018 
30X100 19 
80X10023 
80X10021 
BOX  10  0 22 
BOX10023 
80X1302  A 
80X10025 
BOX10026 
80X10027 
80X10  C28 
SOX10C29 
30X13033 
BOX13031 
BOX10032 
BOX  100 33 
BOX  10 0 3 L 
BOX10C3S 
BOX  10  0 36 
BOXIOO  37 
BOX10C38 
BOX10C39 
BOXIOCAO 
BOX10CA1 
BOX100A2 
BO  XI 0 C A 3 
30X10  0 A A 
BOX  10  0 A S 
B0X13CA6 
BOX1COA7 
BOX10CA8 
BOX  IOC  A9 
BOXIOOSC 
BO  X 10  C 51 
BOX10CS2 
BOX  10 0 53 
BOX  130  5 <• 
80X10055 
BOX 10  0 56 
BOX10057 
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EXHIBIT  4 (Continued) 


IF  (ABSISICMALI J)  I .LE.EPSI 1GOTO160 
00 1601*1, M7 
160  PJ(J)>0.0 

CALC  GE I COL  (NZfNP,IR,IA,IS,TC,RHS,C2,Cl,Pj,NCl,NC2,N03,N04,N05, 
1 J.NZERCSI 

0017011=1, HZ EROS 
I=IS(I1I 

170  RHS(  II=RHS(I1  - PJ(II *SIGHAL(JI 

IF  (I  PHASE  .Ev«.2)RH3  (MP2I=RHS(MP2I  - PJ IHP2  I *SIGMAL  (J) 

160  CONTINUE 

C ESTABLISH  THE  BASIS  INVERSE,  THE  VALUES  OF  THE  BASIC  VARIABLES,  ANO 
C THE  VALUES  OF  THE  NONEASIC  VA  FIABLES  FOR  SUBPROGRAM  1. 

OO190K=l, LlO 

IF (I  UPPER (K) .EQ.0IGOTO19C 
J=N8V CKT 
BN(KI=U(JI 
190  CONTINUE 

IF  (LISTOP.EQ.il  CO  10270 
002001  = 1, H7 
200  BI(I l=R  HS ( 1 1 
00230K=1,  LlO 

IF  (IUPPEROCI  .EQ. 01  GOT  0230 
J=NBV(KI 

IF(AdS(U(J)I .LE.EPSI  I GOT 0230 
002101=1, H7 
210  P J (11=0.0 

CALL  GETCOL  (NZ ,NP, IR, I A , IS, TC ,RHS,C2,C1 ,PJ ,N01 ,ND2 ,N03,N04 ,N05, 
1 J.NZEROSI 

0022011  = 1 ,NZEROS 
I=IS(I1I 

220  BI(II=BI(II  - PJ(II*U(J) 

BI (HP1I =81 (HP1 I - PJ(MPlt*U(ji 
IF (IPHASE.EQ.2IB1 (HP2)=BI(HP21  - PJ  (MP2 1 • U ( J I 
230  CONTINUE 

002501=1, H7 
Q1=0 • 0 
0U24 0 J= 1 , H7 

240  Q1=U1  ♦ B (I  • Jl  *BI  (J) 

260  PJ (I  I =Q1 

002601=1, H7 
260  UI(II=PJ(I> 

GOTO280 

270  CALL  BINVRT  (NZ,NF,IR,IA,IS,IBV,NBV, IUPPER, TC,RHS,C2, Cl, B I , U,PJ, 
1 BINV«8,NU1,NC2,N03,N (4, NOS ,N06,N07 I 

200  REMIND  4 

WRITE  (4  MIBV(  1 1, 1 = 1, NOLI,  (NBV  ( 1 1 , 1=1 , N05 1 , ( IUPPER (I I , 1=1,  N05I, 

1 (BI (II ,I=1,N041 • (BN (II ,1  = 1, NOS  I ,L1C , NITER, NBINV , 

2 ((8(I,JI,I= 1 ,N04 1 * J= 1 ,N04I 

C CHECK  IF  THE  SUBPROGRAM  IS  INCLUOEO  IF  THE  NE >T  SUBPROGRAM. 
IF(INT(NBRVARI .NE.CIGOTO370 
IF(ABS(U(N8RVARI I .GT. TOL2 IGOT0370 
IF (ABS(SAVE  - SIGHAL(NBRVAR) I .LE.TOL2IG0TO370 
IEOJ=l 

IF (IOUTPT.NE. Cl  WRITE (6,10041 
RETURN 

C INITIALIZE  THE  OATA  REQUIRED  FOR  SUBPROGRAM  2. 


Mlllltl 
B0X16GS9 
BOX  10  060 

80X10061 

80X10062 

80X10063 

BOX10064 

80X10065 

80X10066 

BOX10067 

80X10068 

80X10069 

BOX10C70 

80X10071 

BOX10072 

80X10073 

80X10074 

80X10075 

BOX10076 

BOX10077 

80X10076 

60X10079 

80X10060 

80X10061 

80X10062 

80X10083 

BOX  IOC  8 a 

BOX10085 
80X1008E 
80X10067 
80X100  68 
80X10069 
BOX  13  0 90 
80X10091 
BOX10092 
80X10093 
80X10094 
80X10095 
80X10096 
80X10097 
80X10098 
80X10099 
80X10100 
BOXIOIO 1 
80X10132 
80X10103 
80X10104 
BOXIOIO  S 
BOX1Q1QC 
80X10107 
80X10108 
BOX10109 
80X10 110 
80X10111 
80X10112 
►BOX10U3 
80X10114 
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EXHIBIT  4 (Continued) 


* 

at  SIGMAU(NBRVAR)=SAVE 
SAV£*SIGHfL ( NBRVAR) 

IF (KBRAN.EQ  .1J&OT0300 

IF (IOUTPT .NE.0>HRITE(6,1001)NaRVAf, ICC  (NBRVAR) 

SIGNAL  < NBRV  AR) =XBRNOO 
GOTO310 

330  IF (IOUTPT. N E. 01 NRITE(6, 1002 > NBRVAR, INT (N6RVAR) 

SIGMAl(NBRVAR).=  X1 
310  0ELTA=3IGMAL(NBRV#R)  * SAVE 
C ADJUST  THE  UPPER  LIMITS. 

U(NBRVARI=SI GHAU ( NBRVAR)  - SIGNAL  (N8RVAR) 

C ADJUST  THE  COST  DATA. 

IF  Cl TVPE.EQ.il GOTO330 
00320J=1,N 
320  C2 (J)=C20LD ( J) 

330  TSIG-TBRNCO  * C2 l N6RVAR) •DELTA 
C AOJUST  THE  RIGHT -HAND *SlDc. 

003401=1, N7 
340  Pj(I)=0.C 

CALL  GETCOL  <NZ,NP,IR,IA,  IS , TC , RHS, C2, C 1 , PJ ,ND1 , NC2 , N03 , N 04 , ND5 , 
1 NBRVAR, NZEROSI 

0035011=1 iNZEROS 
I=IS(I1> 

350  RHS (II =RHS ( I ) - PJ(I) *0ELTA 

IF{ IPHASE.E J.2JRHS (MP2)=RHS (MP2)  - PJ (MP2  )«OELT A 
C AOJUST  THE  VALUES  OF  THE  dASIC  VARIABLES. 

RE  HI  NO  4 

READ  (4) ( Id  V (I) ,I=1»NJ4) • INBVCII,  1*1, N05)  , ( IU FPER ( I ) , 1 = 1, N05I  , 

1 (81(11,1=1, N04)  ,(BN(II,I=1,ND5)  , L 1 0 ,N ITER, Ndl NV , 

2 ( ( B ( I » J ) , I = 1 , N04 ) ,J=1,N04) 

003601=1, H7 

BI (1)=BI (I)  ♦ B(I,MPi)*PJ(MPl)»OELTA 

IF (NBRVAR.NE.IBV(I) TGOTO360 
8I(II=BI(II  - OElTA 
360  CONTINUE 

C CHECK  IF  The  SUBPROGRAM  IS  INCLUOEO  IN  THE  LAST  SUB  PR  CGRAM. 
IF(INT(N8RVAR) .NE.O IGOTO3  70 
IF (A  BS (U (NBRVAR) I . GT . T0l2 )G0 T037C 
IEOJ=i 

IF (IOUTPT. NE.C)  )RI T£ ( 6, 1 0 C5 ) 

RETURN 


SOLVE  SUBPROGRAM  LNCOE. 


370  IEOJ=0 

00  390J=1 ,N1P2 
IF (U(J) .LT.-TOL2) COT03SO 
IF  (U(J»  .GE.TOL2*Q  .11  GOT 0390 
U(J»=T0L2*Q .1 
GOTO  390 
380  1E0J=1 
390  CONTINUE 

IF (I EOJ . EQ. OIGOT041C 

C THE  LOMER  ANO  UPPER  LIMITS  ARE  INCOMPATIBLE. 
IF (IOUTPT .NE.O) NRITE (6, 1 0 06) 

IF (IOUTPT .LE.1I  RE  TURN 


'80X10115 
80X10116 
80X10117 
80X10118 
60X10119 
80X19 120 
BOX10121 
BOX  10 122 
60X10123 
BOX 10 124 
80X10 125 
80X10126 
BOX1C127 
BOX10128 
80X10129 
BOX  10 130 
BOX1Q131 
BOX19132 
80X10133 
BOX 10 1 34 
BOX10135 
00X10136 
80X10137 
BOX10138 
BOXlO 1 39 
80X10140 
BOX  10141 
BOX10142 
60  X 1C  1 4 3 
BOX10144 
BO  X 10 14  5 
60X10146 
BOXlO 147 
B0X1C148 
BOXlO 149 
BOXlO 150 
BOX 101 5 1 
BOXlO 152 
BOX 10 15 3 
80X10154 
BOXlO 155 
80X19156 
BOX10157 
80X10156 
80X10159 
80X10 160 
BOX 1 0161 
BOXlO 162 
60X10163 
BOX10164 
90X10165 
B0X13166 
BOXlO 16  7 
B0X1D168 
80X10169 
BOXlO 170 
BOX10171 
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EXHIBIT  4 (Continued) 


NRITE  (6,  100  7) 

OOAGOJ=i;NlP2 
IF  (U(J)  .GE.-TOL2IGOTO400 
MR ITE(6,1CC8)J, SIGMA L (J ) , SIGMAUI J I 
AGO  CONTINUE 
RETURN 

C THE  LONER  AND  UPPER  LIMITS  ARE  COMPATIBLE. 

L1C  IF (ITYPE.EQ. 2) GOT 0460 
C APPLY  THE  OUAl  SIMPLEX  ALGORITHM  FIRST. 

IF  (IOUTPT  .LE.DGOTO450 
NRITEI6.1003ITSIG 
MRITEI6, 10091 
00430J=1.N 
K=INT ( J) 

L-ICC(J) 

IF  (IOUTPT  .G  E.  3)  GO  TO420 
IF (K.EQ.C  .ANU.  L .EU. 0 ) GOTO  433 
42C  NRITE (6, 101 3 )J,K,L .SIGMAL  (J > , SIGMAU ( J I , C2 ( J ) 

43C  CONTINUc 

IF (IOUTPT. LE. 2) GO  104  50 

IF(NM1M3.EQ.MGOTC450 

0044QJ=NP1,NH1M3 

44C  HR  IT E (6. 10 11 ) o.SIGHAL ( J» , SI GMAU( Jl 
A5G  IALGO=2 

CALL  SIMPLE  ' l2,NP,IR,IA,IS,NV.IOV.NBY, IU FPER , T C . FHS , C2 ,C 1 .8 1, BN, 
1 U,PJ,UlNV,XJ,V  ,X2,d,N01,N02,ND3,NU4  ,N05,NOG,  NCI 7) 

IFdEOJ.NE.O  ) RETURN 
4b  3 IFdTYPE.EQ.  DGCT0580 
C APPLY  THE  PRIFAL  ALGORITHM  SECOND. 

C ESTABLISH  NEH  COST  CA1A. 

TSIG=3.C 
00490 J=1 , N 
K= ICC ( J ) 

IF (K.EU.  DG0T048C 

CALL  GET  OBJ  ( K, SI6MAL ( J I , F0 I 

TSIG=TSIG  ♦ FC 

IF (AdS(U (J) > .cE.TOl2)GOTO470 
CALL  GETOBJ  (K, SIGMAU ( J ) , FI ) 

C2(JI=(F1  - FC) /U ( Jl 
GOT  0490 
A7b  C2 ( J ) =3 . 0 
GOTO 490 

A80  TS IG=TS1G  ♦ C2 ( J) *SIGMAL ( J) 

A9G  CONTINUE 

IF(I0UTPT.LE.l)G0TO53D 
HRITE(6,10G3)TSIG 
HRIT  E (6  * 1009) 

OO510J=l,N 

K-INT(J) 

L=ICC(J) 

IF  (IOUTPT  .GE.3)  C-OTO500 
IFtK.EQ.O  .ANU.  L .EQ. 0) G0T051Q 
5 j 0 HRITt (6,1010  )J,K,L,  SIGNAL  (J  ) , SI  GMAU  ( J ) , C2  ( J ) 

510  CONTINUE 

IF (IOUTPT .LE. 2) GO TO 530 
IF (NH1N3.EQ. N)GCT C530 
00520 J=NP1»  NM1H3 


BOX10172 
80X10173 
80X10174 
80X10 1 7 E 
BOX 10 17b 
80X10177 
80X10178 
80X10179 
80X10 180 
80X10181 
80X10182 
80X10183 
BOX 13 184 
BOX13185 
80X13 18b 
90X1G 18  7 
80X10188 
80X10189 
30X10  19. 
80  X 1 J 1 9 1 
80X10 192 
30X10193 
80X13194 
80X10145 
80X101  )c 
80X1.197 
30X13 198 
8CX13 199 
BOX1G  2tl C 
30X10231 
80X10232 
8CX1023  3 
80  X 1C  2 J h 
bOXIOt.E 
aoxict: e 
80X1023  7 
80X10238 
BO X13  20  9 
80X13213 
80X10  211 
80X10212 
80X19213 
BO  XI 3 21 4 
80X13215 
80X13216 
80X10217 
80X13218 
80X13219 
80X10  220 
80X13221 
80X13222 
80X13225 
80X13224 
80X10225 
80X10226 
80X10227 
80X10220 
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EXHIBIT  4 (Continued) 


$28  HR IT E I6tl011 ) J( SIGNAL (J) .SICHAUCJ) 
$30  IND£X*0 
C BASIC  VARIABLES. 

005501*1, ft 

IF(I.EG.HP1)GOT05-SO 

J*IdV(I) 

IF(J.GT.N)GOTo550 
T*C2  (J)  - C20LD (J I 
IFUBSin  .LE.EPSI  )G0T 0550 

iMoex-i 

BI(HP1I*BI(HP1)  - T*BI (I ) 

00540 J* 1 ,H7 

540  B I MP1 »J)=8(HPi,J)  - T*B  (I  ,J ) 

550  CONTINUE 
C NONBASIC  VARIABLES. 

005601*1 , L10 
J=N8V(I> 

IF  ( J .GT . NIG CT 0560 
I*C2  IJ)  - C2CL0U) 

IF  (A8S(T)  .LE.EPSI ) GOT 0560 
I NOE  X=1 
560  CONTINUE 

IF<INDEX.EQ.CIGOTO570 

IALGO*l 


00X1122$ 
00X10230 
00X10231 
BOX10232 
60X10233 
BOX10234 
BOX10235 
80X10236 
BOX10237 
80X10230 
BO  X 1 0 2 3 9 
BOX  10  240 
BOX  10  241 
80X19242 
80X10243 
BOX10244 
80X10245 
80X1024  ( 
BO X 10  24  7 
BOX10240 
BOX10249 
80X10250 
BOX10251 
BOX10252 


CALL  SIMPLE  (NZfNP.IR, IA, 1S,NV,  IB V, NBV, IUPPER, TC, RHS, C2, C 1 , BI ,BN,  80X10253 
1 U,PJ.0INV,XJ,V,XZ,8, KOI,  ND2, ND3, N04 ,N05, ND6, ND7)  BOX1C254 

IF (IEOJ.NE. QIRETUFN  80X10255 

GO  TO 5 30  80X10256 

570  IF (IOUTPT .GE .2) WRITE (6,1012)  80X10257 

560  NFEAS*NFEAS  ♦ 1 00X10258 

C PRINT  THE  SOLUTION.  80X10259 

Z*Z  ♦ TSIG  BOX10260 

00590 J=1 , N1P2  BOX10261 

590  XZ  (J I *X2 ( Jl  * SIGNAL! J)  BOX10262 

IF (IOUTPT  «EQ.2)GOTO600  80X10263 

NUP=N  80X10264 

IF  1IOUTPT  .GE .31 NUP*NM1H3  BOX  10 265 

HRITEI6 , 1013)2  80X10266 

NRITE<6, 10141 iXZCJI ,J=1,NUPI  80X10267 

600  IF (N3VRUL.GE.3  .ANO.  NTIGHT.EQ.il  RETURN  BOX10268 

C DETERMINE  THE  SLOPES  ASSOCIATED  WITH  THE  OPTIMAL  OBJECTIVE  VALUE.  BOX10269 

CALL  SLOPES  <NZ ,NF,IR, I A, IS . I8V  ,N8V, IUPPER ,TC,RHS, C2, C1,P J, XJ.SO.  00X10270 
1 S1,B,N01,N02,N03,ND4,N05,NC8)  80X10271 

RETURN  80X10272 

1000  FORMAT  I 1HO,50I1H*)  / {HO NODE  ,15/ 2 OHO  BRANCHED  FROM  NODE  ,151  BOX10273 

1001  FORMAT (23H0BRANCHING  ON  VARIABLE  ,I5,27H  WHICH  IS  CONCAVE  VARIABLEBOXIO 274 

. 1 ,151  80X10275 

1002  F CRN AT (23H0  BRANCHING  UN  VARIABLE  ,IS,27H  HHICH  IS  INTEGER  VARIABLEBOX10276 


1 (151 

1003  FORMAT (7H0TSIG  *,E15.6> 


80X10277 

BOX1Q278 


1004  FORHAT (76HGTHE  SUBPROGRAM  NEEO  NOT  8E  SOLVEO  AS  IT  IS  IhCLUOEO  IN  80X10279 


1THE  NEXT  SU (PROGRAM.) 


BOX10280 


1005  FORHAT(76HOTHE  SUBPROGRAM  NEEO  NOT  BE  SOLVEO  AS  IT  IS  INCLUDED  IN  00X10281 


1THE  LAST  SUBPROGRAM.) 

1006  FORHAK27HOTHE  PROGRAM  IS  INFEASIBLE.) 

1007  FORMAT (38 HO T HE  FOLLOWING  LIMITS  ACE  INCOMPATIBLE/ 

1 9H0VARIABLE, 9X, 5HLCHER.12X ,5HUPPER/ 


BOX10282 
80X1028 J 
BOX 10 284 
80X10205 
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EXHIBIT  4 (Continued) 


2 2X,6HNUMBER,lGX,5HLlMlT,12x,5HLIMIT//>  00X10286 
1608  F0RMATUX,I5,3X,E15.6, 2X.E15.6)  80X10287 
100  9 FCRMAT<9HOVARIABLf,4X,3HIRT«8X,2H(C,12X,5FLOHER,12X  .5HUPPER  ,1 3X  , 80X10288 

1 4HC0 ST/2X,EHNUMJ£R,3x,8HVAFlfldLE,2x, 8H V A R I ABLE  » 9X, 5 H L I HI T , 80X10289 

2 12X,5MLIKIT ,9X, 11HCOEFF ICI ENT/12X, 6H NUMBER, 4X , 6HNUMBE R// > BOXlC  292 
1C1C  F0RMAT(3X,I5,2(5X,I5)»3X,3<t.l£.e,2XH  BOX1C291- 
1611  FORMAT  I 3X,15,23X,El5.6,2X,El5.6)  BOX10292 

1012  FORMAT (29H0THE  LAST  TABLEAU  IS  OPTIMAL. 1 80X10293 

1013  FORMAT (17HOSOLUTICN  VALUE  =,£15.6)  B0X1C294 
1019  FORMAT (17HQ VARIABLES  = ,6E15. t/ I17X ,6E15.b) ) 80X10295 
1615  FCRMATU1H  ***»*BOX15)  B0X1C29E 

£HO  80X1029  7 
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EXHIBIT  4 (Continued) 


SUBROUTINE  BOX 1 7 (INT,I CC ,1 BV . C2 .S IGHAL, SIGMAU, XZ, SO, S 1. NOl , N04 . 

1 N06.ND8) 

C OETERHINE  L0RE9  BOUNO.  SELECT  THE  BRANCHING  VARIABLE. 

COMMON/P  l/N.H.ITYPE.NSTRAT*  NOORL  1.N3VRL1.NTITH.  NOORL  2 , NB VRL2 < 

1 NTITE2,MXLIST,LISTOP,ITAP£,IFe,HXITER ,HBINV . IOUTPT, 

2 IT  RACE  .MSTART  .T1HE1.TOL1  .TOL2  .PCiJUR,  ALPHA  (10  ) 
C0NM0N/P2/EPSI ,EPSIM,BIGN,8EGT»1,Ml,M2, H3,P4,N1,MP1,HP2,NM3,NM1H2, 

1 NH1M3.N1P2.NP1 .NSUM.NTC.MIO 

C0MH0N/P3/N0CN0T,tN0T,IBUR0P,L PH ASE , NOORUL, NB VRUL , NTIGHT , NLI ST. 

1 NLISTS,NF£AS,LSTMX  , ITRTCT,  IT R t< AX  , 0L9  .N9PN00  , PBRNOO . 

2 NBRVAR.NUPOWN  , X OR  NOD , T 0RNOD , NODE ,L NODE , Z , B0UN9L  .BOUNO'J. 

3 TSIG.IFEAS.I3RVR1 .IUP3NI .XBRVRl .I3RVR2. IUPDN2. XBRVR2 . 

4 L10.NITER,NBINV,H7,IPHASE.NPHASE,NH3H7 ,IALGO,IEOJ 
C0HH0N/P5/IRCUN0 

0 IHENSI ON  INT(N011.ICC(N01I  ,IBV(N04) 

0 IN  : NS  ION  C2  (NO  1 ) , SIGHAL ( ND6 > . SI GHAU t N 06 ) .X Z ( NO 6 1 , S 0 < N 08 ) . SI (NO 8 » 
IF ( ITRACE.GE. II  WRITE (6. 10  091 
IF(NBVRUL.E0.5>  GOT0420 
IFIN8VRUL.GE.3I GOTO250 


MAXMIN  ANO  MAXMA  X BRANCHING  VARIABLE  SELECTION  RULES. 


BOUNOU=Z 

BOUNOL=Z 

PEN0=Z 

PEN1=Z 

PEN 2-1 

IBRV=0 

JBRV=0 

KBRV=0 

I FEAS=  1 

C BEGINNING  OF  LOOP. 

002 401=1, M7 
IFII.EQ.MP1) GOT0240 
J-IBV(I) 

IFU.GT.  N)GOT0240 
I F ( ICC( J( .NE.QJG0T012Q 
IFCINT (J) .EO.Ot  GO  10240 
C INTEGER  LINEAR  VARIABLE. 

K=XZ(J» 

X 0=K 
X1*K»1 

IF ( ABS ( XZ I J> -XO) «LE.TOL2)GOTO240 
IF(ABS(X1-XZ IJII .LE.T0L2)G0T024d 
IFEAS=0 
P 0*B IGN 
P 1*PQ 

IFISO(II .EO. -BIGN»GOT0100 
PO*Z  ♦ SO(I)*(XO  - XZ(J)  ) 

100  IF(S1(I  I.EQ.BIGNtGOTOllO 
P1  = Z ♦ SI  (IIMX1  - XZ(J)  > 

110  I F I IBRV.EO. 01 IBRV=J 
IF( JBRV.NE. 0>  GOT0190 
J0RV=J 
JUPCN=2 

IFCP1.LE.P0) GOT 01 90 
JUPON=l 


80X10001 
00X10002 
BO  X 1 0 0 0 3 
00X10004 
80X10005 
80X10006 
BOX  10007 
BOX 1 0 0 0 6 
00X10009 
BOX 1 0010 
80X10011 
BOX  1 00 12 
80X10013 
BOX10014 
BOX  1 00  IS 
BOX  100 16 
80X10017 
BOX 1 0 0 1 6 
BOX  1 0 0 19 
‘BOX  1 0 02  0 
60X10021 
'BOX  1 0 0 22 
BOX  1 0023 
BOX  100 2 4 
00X10025 
BOX  10026 
BOX  10  027 
00X10028 
80X10029 
BO  XI 0 030 
BOX  1 0 03 1 
BO  XI 0 0 32 
BOX  1 0 0 33 
BOX  1 0 0 3 4 
80X10035 
BOX  1 0 0 3 6 
BOX  10037 
BOX  1 0 0 3 8 
60X10039 
00X10040 
80X10041 
80X10042 
BOX  1 0 0 4 3 
BOX10044 
BOX  10  045 
BOX  10046 
BOX10047 
80X10048 
BOX  1 0 049 
BOX10050 
BOX  10 051 
BOX  1 0 052 
80X10053 
BOX  1 005  4 
BOX10055 
BOX10056 
80X10057 


EXHIBIT  4 (Continued) 


GOTO  190 

80X10058 

120 

IE  (INI  (J)  «N  E . 0 ) GO  TO160 

BOX10C59 

c 

CONCAVE  VARIABLE. 

BOX1006C 

130 

IF  (ABS(XZU) -SIGNAL  (Jl)  . LE. TOL2) GCT0240 

80X10061 

IF (AdS(SIGHAU(J)-XZ <J> 1 .LE.T0L2 IG0T024C 

BOX10062 

K-  ICC(J) 

BOX  10  C 6 3 

CALL  GETOBJ  U.SI  CMAL  (J)  ,F0) 

8OX10L6  t 

CALL  GETOBJ  (K.XZ(J)»F1> 

30X10  C 6 5 

DELT  A=F 1 - (FC  ♦ C2(J)* (XZ(J) -SIGNAL (J)) 1 

BOX  13  C 66 

60UNDU=d0LN0U  ♦ OELTA 

80X10067 

P0=Z  ♦ OELTA 

BOX 1 0 C 6 6 

P1=P0 

BOX13C69 

IF  (S3 (I) .EQ.-bICN)G0T014C 

aoxioczG 

TO  =Z  «•  SC  (I  )*(SIGFAL(J)  - XZ(J»I 

BOX13C71 

IF(IO.LT.PO)PO=TO 

30X10  £ 7 2 

140 

IF  (SKI)  .EQ.  BIGN)  GOTO  150 

BOX1SC  7 3 

T 1 = Z ♦ sl(I)*(SIGMAU(J)  - XZ(JII 

30X13074 

IF  (T1.lT.Pi)P1=T1 

BOX1CC75 

150 

IF  (OELTA.Ea.O.a IGOT0190 

90X13076 

IFddRV.EQ.  J(10RV  = J 

BOX 13 C 7 7 

IF  ( JBRV  .NE . 0)0010190 

30X1 3 C 73 

J9RV=J 

60X13079 

JUP0N=2 

BOX  13  C 8 C 

IF (P1.LE.P0) GOTOl 51 

BOX10C81 

JUPllN=i 

BOX  1 0 C 8 2 

GOIO190 

80X13083 

c 

IMEGLR  CONCAVE  VARIABLE. 

90X10084 

160 

K=XZ (J) 

80X13085 

X«  = K 

BOX  10  C 8 6 

X1=K.»1 

30X10087 

IF(A0S(XZ(J)-XC).Lt.TOL2)GOTO13C 

3OX10C88 

IF ( AB3( Xl-XZ (J>> . IE.TOL2»GOT013u 

80X13089 

IFE  75=0 

80X10090 

K=ICC(J> 

BOX  10  C9 1 

CALL  GETOBJ  CK, SI CHAL ( J) , FO ) 

80X10092 

CALL  GETOBJ  (K.XC.Fl) 

BOX  13  C 9 3 

CALL  GE  T OBJ  (K>X1|F2) 

BOX  10  C 9 4 

FU=dIGN 

BOX10C95 

P1=P0 

BOX13096 

IF  (S3(I).EQ.-bIGN)GOTO170 

BOXlOC  97 

P0=Z  ♦ SO  (I  )* (X0-XZ( J) ) ♦ FI  - (FC  ♦ 

CZ  (J 1 * (XO-SIGMAL(J) I I 

30X10098 

IF (A8S(X0-SIGMAL(J)).LE.TCL2) GOTO  170 

30  X 10  C 99 

TO  =Z  ♦ SC(II*(SIGHAL(J)-XZ(J)) 

BOX  10  IOC 

IF (TO  .LT .PC) PC  = TC 

BOX  10 1 C 1 

170 

IF  (Sl(l) .EQ.BIGNIGOTOISC 

BOX10102 

P1  = Z ♦ SI (I  )MX1-  XZ  ( J ) ) ♦ F2  - (F 1 ♦ 

C2 (J) • (Xl-SIGHAL (J) ) ) 

BOX  13 1 C 3 

IF  (ABSC$IGMAU(J)-Xl).LE.TOL2)GOTO180 

60X10 1 G 4 

T l=Z  ♦ 51(1  )*(SIGHAU(J) -XZ(J)) 

80X10105 

IF(U.LT.P1)P1=T1 

boxioioe 

ISC 

IF (IQRV.EQ.O )IdRV=J 

80X10  1C  7 

IF(JBRV.NE.O) GOTOl 90 

BOX  1010  8 

JBRV= J 

BOX13 1C  9 

JUPON=2 

80X10110 

1F(P1.L£.PQ)GOT01C,0 

80X10111 

JUPON=l 

BOX10112 

c 

ALL 

VARIABLE  TYPES. 

80X10113 

c 

DETERMINE  THE  LONER  BCUNO. 

•0X10114 

93 
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EXHIBIT  4 (Continued) 


198  PENA«P0 

BOX10115 

IFIP1.LT. PEN*) PEN I«P1 

B0X1B116 

IFIFENA.LE.B  OUNOL ) GOT 020  0 

90X10117 

BOUNOL-PENA 

BOX  10 118 

238  IF ((SO 11 1 .EU.-BI&N  .OR.  S 1( 1 ) • EQ. E1GNI 

.ANO.  NT IGHT .EQ.C) GOT 0240 

80X10119 

DETERMINE  THE  NAXMIN  SELECTION. 

BOXIO 120 

IFIPENA.LE.PENQTGCTO210 

80X10121 

PE NO* PENA 

80X10122 

IBRV=J 

BOX10123 

DETERMINE  the  haxhax  selection. 

80X10124 

210  PENB=P3 

BOXIO 125 

JU0=2 

80X10126 

IF(Pl.LE.PENfilGOTO220 

BOXIO 12  7 

PENB=P1 

BOX10128 

JU0=1 

BOXIO 129 

220  IF(PENB.LE.PEN1»GOT0230 

BOXIO 130 

PENi=PENB 

BOX10131 

JUPON=JUO 

BOXIO 132 

JBRV*J 

BOX  10 1 33 

DETERMINE  the  haxhax  selection  taken  over 

THOSE  VARIABLES  FOR  WHICH 

80X10134 

THE  MIN  IS  GREATER  THAN  Z. 

BOXIO 1 35 

230  IF  (ABSIPENA  - Z > . LE.EPSI  TGOT0240 

BOXIO 1 36 

IF (PENS .LE.PEN21GOTO240 

80X1013? 

PEN2=PEN8 

80X10138 

KUPON-JUO 

80X10139 

KBRV= J 

BOXIO 140 

240  CONTINUE 

B0X13141 

END  OF  LOOP. 

80X10142 

GOTO290 

30X10143 

*30X10144 

MIXEO  INTEGER  LINEAR  FRCGRAM  WITH  THE  HOST 

NCNI NT  EGER 

BOXIO 145 

OR  KEIGHTEO  NCNIN1EGER  BRANCHING  VARIABLE 

SELECTION  RULE. 

60X10146 

*BOX10147 

250  BOUNOU=Z 

80X13148 

BOUNOL=Z 

BOXIO 149 

PEN1=0 . 0 

80X10153 

PEN2=0. 0 

BOX  10 151 

JBRV=0 

BOX10152 

K8RV=0 

BOX13153 

IFE  AS=1 

BOXIO 154 

BEGINNING  OF  LOOP. 

BOX  10 15 5 

0028  01= 1»  M7 

BOXIO 15  6 

IF  (I.EQ.MPDG0T028C 

BOXIO 15  7 

Jxiavui 

BOX10158 

IF  (J.GT .N IGOTO280 

80X10159 

IF (INTI J) .EQ.C) GOTO280 

BOXIO 160 

K=XZ (J) 

BOXIO 16 1 

X0*K 

BOXIO 162 

P0=XZ(J»  - xo 

BOX10163 

P1=1.Q  - PO 

BOXIO 16  4 

IF(PO.L£.TOL2)GOTC280 

80X10165 

IF (Pl.LE. TOL2IGOTO2B0 

BOXIO 166 

IFEAS=0 

BOX  10 16  7 

DETERMINE  THE  HOST  NONINTEGER  SELECTION. 

B0X1D168 

PENBaPO 

BOXIO 169 

JU0*1 

BO XI.  ,?0 

IF  (P1.G£.P£NB>G0.‘  260 

94 

BOX  1 0 1 7 1 
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EXHIBIT  4 (Continued) 


c 


c 


c 

c 


c 


r. 


PEHe*Pi 

JUO«2 

260  IF1PENB.LE.PEN11GOT0270 
PENl*P£NB 
JUP  CN=  JUO 
J BR  V = J 

DETERMINE  the  weighted  noninteger  selection. 

270  PENe=PENB»ABS(C2 (J» ) 

IF(PEN9.LE.PEN2(GOTO280 

PEN2=P£N8 

KUPDN= JUO 

K8RV=J 

280  CONTINUE 

ENO  OF  LOOP. 


COMMON  LOGIC  FOR  MAXMIN,  MAXMAX,  MOST  NONINTEGER  AND  WEIGHTEO 
NONINTEGER  BRANCHING  VARIABLE  SELECTION  RULES. 


290  IF1ITYPE.NE. 1IGOTO320 
IF  I IROUNO.EQ.0)GOTO320 

ROUND  THE  LOWER  eOUNO  UP  Ir  THE  OBJECTIVE  FUNCTION  IS  INTEGER  VALUED 
IF (BOUNDL.LE • 0. 0 > GOT  030  0 
I NTBO=  BOUNOL  ♦ 1.0  ♦ EPSIM 
GOT0310 

300  INT  60=  BOUNOL  ♦ EPSIM 
310  BOUNDL= I NT9D 
320  IFIK8RV.NE.01GOT0330 
KBRV=JBRV 
KUPON= JUPON 

SELECT  THE  BRANCHING  VARIABLE  FOR  A ONE  PHASE  METHOD  OR  PHASE  1 OF 
A TWO  PHASE  METHOD. 

330  GOTO<340. 35 0.360. 350. 350) .N8VRL1  ♦ 1 
340  I 8RVRl= IBRV 
IUP0N1=2 
GOTO370 

350  I BR  VR1  = J BRV 
I UP  ONI  = JUPON 
GOTO370 

360  I0RVR1=K6RV 
IUPONl=KUPON 
370  X BR  VR1  = 0 • 0 

IFTIBRVR1.NE .0) XBRVR1=XZ (IBRVR1I 
IFINSTRAT  .EQ.DGOTO440 

SELECT  THE  BRANCHING  VARIA3LE  FOR  PHASE  2 OF  A TWO  PHASE  METHOO. 

GOTOI380. 3B0. 400.390. 40  0I.N3VRL2  ♦ 1 
380  I BRVR2= IB°V 
I UP  CN2  = 2 
GOTO410 

390  I BR  VR2  = J BRV 
IUP0N2=JUPDN 
GOTO410 

400  IBRVR2=KBRV 
IUP0N2=KUP0N 
610  XBRVR2=0.0 

IF  I IBRVR2.NE.O)X0RVR2  = XZ  dBRVR2) 

G0T044Q 


80X10172 
80X10173 
80X10174 
80X10175 
80X10176 
80X10177 
00X10178 
80X10179 
BO  X 1 0 18  0 
BOX 1 0 1 8 1 
BOX  1 0 18  2 
30X10183 
80X10184 
BOX1018S 
>80X10186 
80X10187 
BOX10188 
>80X10189 
BOXIO  190 
BOX  10 191 
BOX  10  192 
80X10193 
BOX 1 0 1 94 
BOX10195 
BOX 10 196 
80X10197 
00X10156 
90X10199 
BO  X 1 0 2 0 0 
80X10201 
BOX10202 
80X10203 
BO  X 1 0 20  4 
80X10205 
00X10206 
80X10207 
BOX1020  £ 
80X10209 
BOX  1 0 21 0 
BOX  1 0 2 1 1 
00X10212 
80X10213 
BO  X 1 0 2 1 4 
90X10215 
BO  X 1 0 216 
80X1 0217 
BOX  1 0 21 8 
80X10219 
BOX  1 0 22  0 
80X10221 
BOX  1 0 222 
80X10223 
80X10224 
90X10225 
80X10226 
90X10227 
80X10228 
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EXHIBIT  4 (Continued) 


C CONCAVE  NONLINEAR  PAOCRAH  WITH  INC  CO  tVENTXONAL 
C BRANCHING  VARIABLE  SELECTION  RULE. 

420  BOUNDU=Z 
PEN=0.0 
IBRVR1-0 
004301*1, H7 
IF(I.EQ.MPl) GOT 0430 
j=iavu ) 

IFIJ.GT.NIGOT04JO 

K*ICC(J> 

IF (K.EQ.0IGOTO430 

CALL  GETO0J  IK, SIGNAL  U) , FO I 

CALL  GETO0U  (K,XZ(JI,F1) 

CELT A=F1  - (FO  ♦ C2(JI*(X2(J) -SI GCAL (JII) 
BOUN 0U=  oOliN  CU  ♦ OELTA 
IF(OSLTA.LE.FtNtGOTO430 
PEN=0ELT  A 
I8RVR1* J 
430  CONTINUE 
XBRVR 1=3.0 

IF (IBRVRl.NE.il XBRVR1=XZ( IBRVR1) 

BOUNOL=Z 
IFE  AS= 1 


PRINT  OUT  THE  RESULTS. 


440  IF ( I OUT  PT .EQ.t)GOT0  54u 

IF  (NSTRAI.EQ.2  .AND.  LP HASE . £Q . 2 1 GOTOSOO 
IF  ( I8RVR1.EQ.LIG0  T053C 

IF(1  .LE.N8VRL1  .AMJ.  NBVRL1.LE.4) GOTO 450 

NRII E(6,1CC0 IIBRVR1 

GOTO470 

450  IF (IUFON1.EQ.2IGOTO460 
NRITE(b,1001)IbRVRl 
G0T047G 

460  NRITE(6,1002)IbKVRl 
470  IF (NSTRAT . EU . 1 ) GO  TO  53  0 
IF (lERVR2.E0.u)G0T053U 

IFI1.LE.N8VRL2  .A  FO.  N8VRL2.LE.4) COT 0480 

WRITE(6,10Q3) I8RVR2 

G0T053C 

4oi)  lF(IUPON2.EQ.2IGOlO490 
HRITE(6,1004)IBRVR2 
G0T0S3G 

490  HRITE(6,1005) IBRVR2 
GOTO530 

SCO  IF<  IBRVR2.EQ.C)G0T053C 

IF  <1  .LE .NBVRL2  .AND.  NBVRL2. LE.4 I GOTOSIO 

HR IT  E(6,1000)I6RVF2 

GOTO530 

510  IF (IUPON2.EQ.2 JGOTOE20 
HRITE(6,10C1IIBRVR2 
G0T053Q 

520  HRITE (6,10021 IBRVR2 
530  HRITE(6,1006)BOUNDL 

IF (IFEAS.EQ. 1IHRI  lE (6, 1C 0 71 BOUNOU 


BOX10229 
BOXIO 230 
>80X19  231 
BOXIO  2 32 
BOX10233 
80X10234 
60X10235 
80X10236 
BOXIO  2 3 7 
BOXIO  236 
BOX10239 
80X10240 
BOXIO 241 
80X10242 
80X10243 
BOX10244 
80X10245 
BOX10246 
80X10247 
80X10248 
BOX10249 
80X10  250 
BOXIO  251 
BOX10252 
80X10253 
80X10254 
'80X10255 
80X10256 
80X10257 
80X10256 
80X10259 
80X10 260 
80X10261 
80X10262 
80X10263 
80X10264 
80X10265 
80X10266 
80X10267 
80X10268 
80X10269 
80X10270 
80X10271 
80X10272 
80X10273 
BOXIO 274 
80X10275 
80X10276 
80X10277 
80X10278 
80X10279 
80X10260 
80X10261 
80X10282 
80X10263 
80X10264 
80X10265 
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EXHIBIT  4 (Continued) 


1 


5«*0  I F ( NODE  . N£  • 1 .OR.  I BUBOP  . EQ  . 0 » RE  TURN 
C ESTABLISH  THE  INITIAL  BEST  UPPER  BOUNO. 

UNO  T *BOUNOL  ♦ PCBUB 
IF»OUTPT.NE.0)MRIT£C6,  1008IUNOT 
RETURN 

1000  FORM AT (10H0VARIABLE  .I5.27H  IS  THE  BRANCHING 

1001  FORMATCIOHOVARIABLE  .I5.69H  IS  THE  BRANCHING 
1ANCHING  FROM  THE  LONER  BRANCH.) 

1002  FORMAT (10H0VARIA6LE  .I3.69H  IS  THE  BRANCHING 
1 ANCHING  FROM  THE  UPPER  BRANCH.) 

1003  FORMAT (1  OHO V ARIA BLE  ,I5,39H  IS  THE  BRANCHING 
1) 

1004  FORMAT (10H0VARIABLE  .IS.S1H  IS  THE  BRANCHING 
1 CONTINUE  BRANCHIFG  FROM  THE  LONER  BRANCH.) 

1005  FORMAT  C 10HOV  ARI A BLE  .I5.81H  IS  THE  BRANCHING 
1 CONTINUE  BRANCH IFG  FROM  THE  UPPER  3RANCH  •) 

1006  FOR  HAT  Cl LHOL ONER  BOUNO  =,E15.6) 

1007  FORMAT! 1LH0UPPER  BOUNO  -.E15.6) 

1006  FOR  MAT  I ] 1H  0 T HE  PHASE  1 BEST  UPPER  BOUNO  «,E15 
1009  FORMAT (11H  *•*••80X171 
ENO 


80X10286 
BOX10207 
BOX  10266 
BOX10269 
BO  X 1 0 2 9 0 

VARIABLE.)  BO  XI 0 291 

VARIABLE.  COKTINUE  BRBOX10292 
BOX  1 0 293 

VARIABLE.  CONTINUE  BRBOX1029A 
B0X10295 

VARIABLE  FOR  PHASE  2. 80X10296 
80X10297 

VARIABLE  FOR  PHASE  2.BOX10298 
BOX  102 9 9 

VARIABLE  FOR  PHASE  2.80X10300 
BOX10301 
BOX  10  302 
BO  X 1 0 3 0 3 

.6)  B0X1 0304 

BOX10305 
80X10306 


EXHIBIT  4 (Continued) 


SUBROUTINE  80X23  ( INUSE ,XNOT , CARP , XI ,N01 ,N06,ND1G » 

C UPOATE  THE  BEST  UPPER  SOUND.  IF  IN  PHASE  1,  MERGE  THE  SUBLIST  INTO 
C THE  LIST  ANO  ENTER  PHASE  2.  EUIT  THE  LIST. 

COMMON /PI /N,H, ITYPE,NSTRAT,N00RL1 , N 1YRL1 ,NTITE 1 , N00RL2 ,NBVRL2 , 

1 NTITE2,HXLIST,LIST0P, IT  APE,IF6,MXITER»HBINY  » I OUTPT • 

2 ITRACE,MSTART,TIM£1,T0L1,T0L2,PC6UB,  ALPHA ( 1 ) 

C0MM0N/P3/ NOON  0 T , UNOT  * I QUO OP , LPH ASE  ,NOORUL , NOVRUL , N TI GHT , NLI S T, 

1 NLlSTS,NFEAS,LSTMX, ITRTOT,ITP)’AX , BLB  « N3RN00  .PBRNOO, 

2 N9RV  AR  , NUPO  WN , XBRNO  0 , TBRNOO, NODE ,LNOOE , 2 , BOuNJL .BOUNOU, 

3 TSIG  , IFEAS,  IORVP.l,  IUPON 1 , XBRVR1,  IBRV R2 , IU P0N2, XBRVR2 , 

4 L1G,NITER,N0INV,m7,IPHmSE,NPhASE ,NH3M7,IALG0,I£OJ 
DIMENSION  INUSE(NGIO) 

DIMENSION  XNOT (NOD ,CAPF(N01C  > , XZ (N06) 

IF  (IT  RACE.  GE.l)  WRITE  (6,  13  C<*  > 

C UPDATE  THE  BEST  UPPER  BOUND. 

NODNOT=NODE 
UNOT- BOUNOU 
D013C J=1 , N 
130  XNOT(J)=XZ ( J) 

C EDIT  THE  LIST. 

NDELET  *3 
001131=1, HXLIST 
IF (INUS£( I ) . EG . 3 > GOTO  113 
IF  (CA  PP  (I  I . LT.  (l.-TOLD  * UNOT  I GO  TO  113 
INUSE  ( I)  =3 
NOELET=NDELET* 1 
113  CONTINUE 

IFdOUTPT.NE.O  )WRITE(6,  10  30)  NOONO  T, UNOT 
IF(N0EL£T.£Q.y)G0TO12J 
NLIST=NLIST-NDELET 
IF ( IOUTPT . EQ. 3 ) GOTO  123 
WRITE  (6,10 J1INCELET 
NRITE(6,13U2)NLIST 
120  IF(ITYP£.EQ. 2) RETURN 
IF (LPH ASE. EQ. 2) RETURN 
C ENTER  PHASE  2. 

LPHASE  =2 

IF(NSTRAT.EQ.l)GOTO130 
NOORUL =NOORL2 
NBV/RUL  =NB  Y RL2 
NTIGHT  = NTITE2 

130  IF(IOUTPT.NE. o ) WRITE (6,  13  33) 

IF ( IBUBOP. EQ. . ) RETURN 
IBUBOP=i 

C MERGE  THE  SUBLIST  INTO  THE  LIST. 

001431=1, MXLIST 

IF  ( INUSE ( I ) .GE.u  ) GOTO  14* 

INUSE ( I ) = -I NUSE ( I ) 

140  CONTINUE 
RETURN 

l.:j  FORMAT (6H. NODE  ,I5,35H  FROVIOES  THE  NEW  BEST  UPPER  BOUNO  ,E15.6) 
1001  FORMAT  <46rl„  THE  NUMoER  OF  NODES  DELETED  FROM  THE  LIST  IS  ,15) 

1302  FORMAT (26H0THE  CURRENT  LIST  SIZE  IS  ,15) 

1033  FORMAT (14H0ENTER  PHASE  2) 

1**4  FORMAT (11H  *♦*•*80X23) 

ENO 


60X20301 
BOX 23  .L 2 
BOX2Q333 
BOX20C04 
30X20305 
BOXEy  -l6 
BOX233C7 
60X20303 
BOX20309 
BOX2y31u 
80X20011 
BOX23012 
80X20313 
B0X2J.14 
80X20315 
BOX20316 
BOX2001 7 
BOX2JC Id 
80X20019 
BOX20320 
80X20021 
80X2u . 22 
80X20323 
BOX23324 
BOX20025 
B0X2J.26 
BOX2032* 
BOX20328 
60X2  0 029 
60X23*33 
BOX20331 
60X20032 
BOX23333 
80X2C334 
BOX20C35 
BOX20C36 
B0X2Q337 
BOX2  j . 38 
80X20039 
BOX2034C 
80X20341 
BOX23: 42 
BOX20G43 
80X20344 
60X20345 
BOX23 .46 
BOX20C47 
80X20348 
B0X2GC49 
BOX20Q5C 
BOX  23  351 
80X20052 
60X20353 
BOX20. 54 
BOX 20 35 5 
60X20356 


98 


EXHIBIT  4 (Continued) 


SUBROUTINE  BOXES  ( INUSE  , IMS ,C2 , CAPP ,CAPl , 3 IGMAL , SIGNAU ,SLOLD , 80X200C1 

X SUO LO « C 20L0 , F MS , NOl , N06,  N 09, NOl., NO 11 , M0MS2 , BOX20CC2 

2 NON  S3 ) BOX20  SO  3 

C STORE  NOOE  LNOOE  IN  THE  SUQLIST  (WHEN  IN  PHASE  1 AND  LOWER  BOUND  LESS  60X20. C4 
C THAN  BEST  UPPER  BOUNO)  OR  IN  THE  LIST  (OTHERWISE).  80X200C5 

COHMON/Pl/N.M, ITVP2,H3TRAT,NC0RL1 , NdVRL  1 , N TI  TE 1 , N00RL2 , NO  VRL  2 , 60X23 it 6 

1 NTITE2, MXLIST, LlSTOP,ITAPE,IFB,MXITER,MdINV,IOUIPT,  BOX200C7 

2 ITRACE,MSTART,TIhEl,TOLl,TOl2,PCdUa,ALPHA(10)  BOX2GOC8 

C0HN0N/P2/EPSI  ,EPSIM,  oIGN,6EGTM  ,M  1 , M2,  M3  ,M4,  N1  ,MPl,  MP2,NM3,NM1M2,  80X20 SC  9 

1 NNlM3tNlP2,NPl,NSUHtNTC».11.  80X20010 

C0HM0N/P3/NC0N0T,UM0T , I 3UB0P, LPHA SS.NOORUL ,N BVRUL ,N TIGHT ,NL 1ST,  80X23011 

1 NLISTS,NPEAS,LSTHX,It-cTOT,ITRmAX,ELB, NdRNOU ,P8  RNOO , BOX20S12 

2 N3RV  AR , NUPD  WN ,X6RN00 , TBRNOO , NGOE ,L NO OE ,2 , BO UNOL , BOUNDU,  BOX23  013 

3 TSIG, IFE AS, I0RVP1, 1 UP  ON l.XBPVPl,  I8PVR2, IUPDN2, XBRVR2,  80X20014 

4 L10, NITER, NBINV  ,Cl7  , IPHA3E  ,NPHAS£  ,I4M3  M 7 , 1 ALGO , I cO  J 80X20  01 5 

DIMENSION  INUSc(NOlC)  , IMS ( N3HS2 ) BOX23016 

OIMENSION  C2(N0l> ,CAPP(NOi.) , CAPL (NOiS ) , SIGNAL (ND6) , S IGM AU (NOo) , 80X20017 

1 SLOL 0 ( N06 ) , 3UOLO ( ND6 > ,C20L0(ND9) ,FMS(N0HS3)  80X20016 

IF ( ITR ACE. GE. 1 ) WRITE (6,10 09)  80X20019 

C CHECK  IF  THE  MAXIMUM  LIST  SIZE  WILL  BE  EXCEEOEO.  BOX2..2, 

IF(NLIST+l.LE. MXLIST) GOT OS 30  80X20021 

IFdOUTPT.NE.O)WRITE<6, lOOulNODE  BOX20S22 

C DETERMINE  THAT  NOOE  IN  THE  LIST  WITF  THE  GREATEST  LOWER  BOUNO.  60X20023 

GLB=-BIGN  80X20024 

0010-1=1, MXLIST  80X20  C 25 

IF(INUSE(I) .EQ.-) GOTO  10  0 80X2  0 026 

IF(CAPP(I) .LE.GL BIGOT 0100  80X20.27 

GLB=CAPP ( I ) BOX20S28 

10=1  60X20029 

130  CONTINUE  BOX2333G 

IF(30UN0L.LT.GLB)G0T0113  80X2-  ,31 

IFdOUTPT.EQ.O  (RETURN  BOX23032 

WRITE ( 6, IS  0 1)  BOX20C33 

RETURN  80X20034 

110  IFdOUTPT.NE.  3>WRITE(6, 1002)  INUSE  (10)  80X20. 35 

IF ( INUSE (IS ) . GE. 0 > GOTO120  80X20036 

NLI STS  = NL I S IS  - l 80X20037 

120  NLI ST  = NLI ST  - 1 80X20-38 

INUSE ( 10) =0  80X2- . 39 

GOT  015  0 80X20040 

C FINC  AVAILABLE  SPACE  IN  THE  LIST.  80X20041 

130  0014310=1 .MXLIST  80X20042 

IF(INUSE(I3> .EQ. 0)  GOT  01 5 3 80X23.43 

140  CONTINUE  BOX 23 04 4 

150  IF( I6U30P . EQ. 0 .OR.  QOU NOL .GE . UNO T > GOTO  160  B0X2J345 

C STORE  THE  NODE  IN  THE  SUBLIST.  80X23  .47 

c# BOX2 g 04a 

INUSE ( 13 ) = -NOD  E 80X20049 

NLISTS  =NL ISTS  ♦ 1 80X20050 

G0T0173  80X2- .51 

C STORE  THE  NODE  IN  THE  LIST.  80X23053 

160  INUSE (13) =NOOE  B0X2J.55 

17C  NLIST * NLIST  ♦ 1 80X20056 

IF(NLIST.GT.LSTMX)LSTMX=NLIST  80X20057 
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EXHIBIT  4 (Continued) 


IFCIOUTPT.E3.0IGOT31SO 

■0X20050 

WRITE C6.1C03INOOE 

■0X20055 

WRITE (6,100  4) NL I ST 

■0X20060 
'•••••SOX 2 0061 

SET 

CARP  AND  CARL. 

BOX20C62 

SET 

CAPP  FOR  THE  NOOE  BEING  SAVEO. 

80X20064 

1*0 

CAPPI 10 ) - B0UN3L 

83X20065 

IFINSTRAT .E3.2IGOT319C 

80X20066 

IFINCORLl.E3.lt GOT0200 

80X20C67 

GOTO280 

80X20068 

ISO 

IFCNOORL2.E3.lt  GOT3203 

8OX20C69 

IFCLPHASE.E3 .1  .ANO.  NOORLl.EQ.l  t GOT3200 

80X20370 

GOT  C2S0 

80X20 071 

OETERHINE  capl  FOR  THE  mode  being  S1WEO. 

80X20072 

200 

IFC 1. LE. NBVRUL  . A N3 . N3VRUL.LE.+IGOT3220 

B0X20C73 

IFCLNODE.E3.2I30T0213 

80X20074 

PNEWN0*P3RN30 

80X20075 

GOTO2  70 

80X20076 

210 

PNEWNOaPBRNOO  ♦ 1.3 

80X20077 

GOTO240 

80X20078 

220 

IF  CLNOOE. EQ. NUP0HNI30TO23C 

BOX20079 

PNEHN0=PBRN30 

80X20080 

GOTO270 

BOX20C81 

230 

PNEHNO=P3RNOO  *1.3 

80X20062 

240 

IFCIBUBO».EQ.OI  GOTO270 

B3X20083 

PMIN=  BIGN 

80X20384 

00250 Ial.MXLIST 

80X20085 

IFCI.EQ.IC130T325C 

BOX20C86 

IFC INUSECII.EQ.CH  GOTO  25  0 

80X20087 

IFCCAPLIIt.LE.RBRNOOl  G0T0253 

83X20  C 68 

IFC CAPL (It. 3E.RHINI  GOTO 250 

83X20389 

PMIN=  CAPL  (It 

BOX20090 

25  0 

CONTINUE 

B3X20091 

IFCPNIN.3T.PNEHNDI33TO270 

80X20C92 

IWCREHENT  CAPL  FOR  NOCES  SUBSEQUENT  TO  THE  NODE  BEING  SAVEO. 

80X20393 

002601=1, NXLIST 

80X23094 

IFC INUSE (It . EO. 3IG3T326C 

80X20095 

IFC CAPL (It .LE.P3RN03I  G0T0253 

83X20096 

CAPL(I>=CAPL(It»1.3 

80X20C97 

260 

CONTINUE 

80X20098 

SET 

CAPL  FOR  THE  N33E  BEING  SAVEO. 

80X20399 

270 

CAPL( 10 1 aPNENNO 

80X20100 

WRITE  OUT  THE  DATA  FOR  THIS  N03E. 

83X20102 

200 

IHS  (1 1 = I3RV  R1 

80X20104 

IHS(2)=IUP3N1 

80X20105 

IHS (3  t = L1 C 

80X20106 

IHS (4 I = NI  TE  R 

BOX20107 

IHS(5)*NBINV 

80X20106 

IHS (6 1=H7 

80X20109 

IHS(7I=I»HASE 

■0X20110 

IHS  CO laNPHASE 

■0X20111 

IHS(9I=NN3N7 

■0X20112 

IFCNS TRAT.EC.lt  GO T0290 

■0X20113 

IHS  (10)  =1 BRVR2 

■0X20114 
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EXHIBIT  4 (Continued) 


IHS ( 11 )*IUP0N2 
290  F HS  < 1 1 * Z 

FNS<2) = TSIG 
FMS<3> *XBkVRl 
IF1NSTRAT.EQ. 1)GOTO30j 
FMS  (4)  *X8R\(R2 
303  IF ( LNOOE. l Q • 2 ) G0T033G 
C INTERCHANGE  SIGNAL  »SLCLO  ANO  SI GH AU , SUOLO. 

0031. 'J  = l,NlP2 
Tl*SLOLO(JI 
T2*SU0L0< J1 

SLOL 0 ( J) » SI  GMC  L < J > 

SUOLO (J)=SIGMAU(J) 

SIGNAL < J)  =T  1 
310  SIGNAL)  ( J)  =T  2 

IF(ITYPE.EQ.i>  GOTO360 
C INTERCHANGE  C2  ANO  C20L0. 

0032.  J=l» N 
TENP=C20L0C Jl 
C20LD (J)=C2 (J) 

320  C2 ( J) = TEMP 
G0T036  0 

C PUT  SIGNAL  INTO  SLOLD,  SIGMAU  INTO  SUOLO. 
330  00343 J=1,N1P2 

SLOL01J)=SIGMAL(J) 

343  SUOLO< J)=SIGNAU( J) 

IF  < ITYPE. EQ • H GOTQ360 
C PUT  C2  INTO  C20L0. 

00350 J«1,N 
350  C20L0 ( J) =C2 ( J) 

360  CALL  HRITNS  ( 2 , 1 MS , NOMS2, 1 01 
CALL  RRITNS  < 3 , F MS , NO  MS  3 , 1 0 1 
IF (LNOQE.EQ.2) G0T039G 

C INTERCHANGE  SIG7AL,SLCL0  ANO  SIGMAU , SUOLO. 
00370 J«lfNlP2 
Tl»SLOL0<J> 

T2*SU0LD( J) 

SLOLO ( J)  = S I GMA  L ( J 1 
SUOLOl JlxSIGMAU(J) 

SIGNAL ( J) =T 1 
370  SIGMAU ( J) = T2 

IF< ITYPE.EQ.l) GOT0390 
C INTERCHANGE  C2  ANO  C20LD. 

00340J*1,N 
TEMP=C20LO(  J» 

C20L0 ( J)  = C2  ( J) 

360  C2(J)=T£MP 


PRINT  OUT  THE  LIST. 


390  IF1IOUTPT.LE.2) RETURN 
INOE  X * 0 

IF(NSTRAT.E3.2)GOTO40J 
IF (NODRL1.EQ. 1)001042; 

GOT 04 10 

400  IF(N00RL2.EQ.l)G0T042u 

IF (LPH ASE. £ Q. 1 .ANO.  NOORL1. EQ. 1) G0T0423 


60X2011 5 
80X20116 
60X23117 
60X20118 
60X20119 
60X20123 
60X2ul2l 
60X20122 
80X20123 
60X2012h 
60X2. 12  5 
60X20126 
60X20127 
60X20128 
60X2.129 
60X20 130 
60X23131 
60X2C132 
60X20133 
60X20134 
60X20135 
B0X2.136 
BOX  2 J 137 
60X20138 
60X20139 
B0X2u  14'. 
60X20141 
B0X23142 
80X20143 
60X2.144 
60X20145 
60X20146 
60X2  0 14  7 
60X20148 
60X20 149 
60X20150 
80X20151 
60X23152 
60X20153 
BOX  20 154 
60X20155 
BOX 2j 15 6 
60X20157 
60X20158 
60X20159 
BOX  20 16t 
60X20161 
60X20162 
BOX20163 
BOX  23 164 
BOX  20 16  5 
60X20166 
30X2.16 7 
60X20168 
60X20169 
60X20170 
60X24171 
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EXHIBIT  4 (Continued) 


410  IN0EX»1 

WRITE (6,1005) 

6010430 

420  WRITE (6.1006) 

43d  0O45.I«l.HXLIST 

IF (INUSE(I) . EQ . Q ) GOTO  45 0 
IF ( INDEX. EQ.O) GOTO440 
WRITE(6,10Q7)INUSE(I) ,CAPP(I> 

GOTO450 

440  WRIT£t6,1008)INUSE(I> .CAPP(I) ,CAPL(I) 

450  CONTINUE 
RETURN 

1000  FORMAT (48H0LIST  SIZE  EXCEEOEO  WITH  ATTEMPT  TO  RECORD  NOOE  .15) 

1001  FORMAT (29H  THE  NOOE  IS  NOT  BEING  SAVEO.) 

1002  FORMAT (6H  NOOE  .I5.31H  IS  BEING  PURGED  FROM  THE  LIST.) 

1003  FORMAT (6H. NOOE  ,I5,19H  SAVED  IN  THE  LIST.) 

1004  FORMAT (26H0THE  CURRENT  LIST  SIZE  IS  .15) 

1005  FORMAT ( 1H0 , 3X, 4HN0DE, 9X , 5HL0WER/1 7X , 5HB0UN 0//> 

1006  FORMAT ( 1H3 , 3X , 4HN00E, 9X ,5HL0WtR,8X , 10HPROCESSING/17X, 5HB0UN0 , 

1 11X.5HOROER//) 

1007  FORMAT (3X, 15, 2X.E15.6) 

1008  FORMAT (3X,I5,2X,E15.6,2X,F11.0) 

1009  FORMAT (11H  *****8CX25) 

ENO 


BOX20172 
80X20173 
80X20174 
BOX  2u 17 5 
BOX20176 
BOX20177 
80X20178 
BOX  20 179 
BOX2 0180 
60X23181 
BOX  2 i 182 
BOX20183 
80X23184 
BOX2J185 
BOX20186 
BOX2018  7 
BOX  2 3 188 
B0X2J189 
60X20190 
BO  X 20 191 
60X20192 
BOX20193 
80X20194 
BOX20195 
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EXHIBIT  4 (Continued) 


SUBROUTINE  AO  JUST  ( VI , ¥2,  V3,  V4,  Tl , T2,T3,  T4  ,3L,  SUI 
C ADJUST  THE  LOWER  AND  UPPER  LIHITS  ON  A VARIABLE  USING  THE  BEST 
C UPPER  BOUND. 

COMNON/Pl/N,M, ITrPE,NSTRAT,NOORLl, N3VRL1,NTITE1,N00RL2,NBVRL2, 

1 NTITE2,MXLlST,LISrOP,ITAP£,IF6,MXITER,MElNV,IOUTPT, 

2 ITRACE.MSTART.TINEl , TOL 1 , TOl2 , PC  GUO, ALPHA ( 1 ') 
COMMON/P3/N JON QT, UNOT , I dUoOR , LPHA SE  , NUURUL , N8VRUL , N Tl GHT , NLI  ST, 

1 NLISTS.NFEAS.LSTMX, ITRTOT.ITRHAX ,3Le,N8RN00 .PttRNOO, 

2 NBRV AR , NUPQ  WN  ,X8RN00, TORNOO, NODE , LNOOE  t Z » 30UNOL , BOUUOU , 

3 TSIG  »IF£AS,  I0RVR1 » I UP  QN1  ,X  BRVR1 , 13RV R2  , IU PDN2  , X8RVR2 , 

4 L1C  , NITER, N8INV.M7, 1 P HA  S£  »NPHASE  ,NM3M7,IALGO,IEQJ 
IFCITRACE.GE.2)WRITE(6, IOC 

C ASSUME  THAT  THE  CURVE  CONSISTS  OF  TWO  L IN - A R SEGHENTS,  ONE  CONNECTING 
C THE  POINTS  (VI, Til  ANO  (V2,T2),  THE  OTHER  CONNECTING  THE  POINTS 
C (V  3,T  3)  ANO  (V4,T4I. 

SL  = VI 

IFtTl . LE. UNOT I GO TO 133 
IF (T2. GE. UNOT) GOTOlGO 

SL= V2  ♦ (UNOT  - T2I * ( VI  - V2I / (Tl  - T2) 

GOT  013  0 

103  IF(T3.GT.UNOT> GOTOllO 
SL=V3 
G0T013Q 

113  IF(T4.GE.UNOTIGOTOl2Q 

SL*V4  ♦ (UNOT  - T4)*(V3  - V4)/(T3  - T4I 
GOTO130 
123  SL=V4 
133  SU=V4 


IF(T4.L£.UN0T) RETURN 
IF(T3. GE.UNOT) GOTO140 

SU=V3  ♦ (UNOT  - T3)*(V3  - V4)/(T3  - T4) 
RETURN 

143  IF(T2.GT.UNOT) G0T0153 
SU=V2 
RETURN 

150  IFITl. GE.UNOT) GOTO160 

SU=V1  ♦ (UNOT  - Tl) *( VI  - V2) / ( Tl  - T2) 
RETURN 
163  SU=V1 
RETURN 

1030  FORMAT (12H  *****AOJUST) 

END 


ADJU00C1 
ADJU0002 
AOJUO Jl 3 
AOJUOOG4 

AOJU0305 

ADJU0:C6 

aoju;  .I r 
Aojuoeca 

AOJU  3 SC  9 
ADJU021C 
AOJU.  Oil 
A0JU3312 
AOJU3C13 
AOJU 3 314 
AOJUO  315 
AOJUO  316 
AOJUO  317 
AOJU J . IS 
ADJUQ019 
AOJUO  023 
AOJU  3 321 
AOJUO. 22 
AOJU 0023 
AOJUO  0 2 4 
ADJU3025 
AOJU 26 


ADJU0027 
AOJUO  328 
AOJUO  C29 
AOJU3.3. 
AOJUO  331 
AOJU3332 
AOJUO  333 
AOJUu.34 
AOJUO 03 5 
A0JU3336 
AOJUO 337 
AOJU. .38 
AOJUO  339 
AOJUO  340 
AOJUO  341 
AOJUO 042 


EXHIBIT  4 (Continued) 


SUBROUTINE  BINVRT  (NZ.NP, IR, I A, I S , I BV ,N8 V.IUPPER ,TC,RHS,C 2, Cl, 81, 
1 U.PJ.BINV.B.NOl, ND2.ND3 .NOR, N05 , ND6.N07 ) 

C COMPUTE  THE  BASIS  INVERSE  CORRESPONDING  TO  THE  BASIS  SPECIFIEO 
C IN  ARP AT  IB V. 

COMHON/P1/N, M,ITrFEfNSTRAT,NOORLl»NBVRLl,NTITEl,NOORL2,NBVRL2, 

1 NTITE2,MXLIST,LISTOP,lT APE  ,IFB ,HX IT ER .MBINV , IOUTPT, 

2 ITRACE,MSTART,TIMSl,TOLl,TOL2,PC9UB,ALPFA(ie> 

COMMON/P2/EPSI ,EPSlM,aiGN,BEGTM,Ml,M2,M3,MR,Nl,MPl,MP2,NM3,NMlM2, 
1 NM1M3,N1P2,NP1,NSUM,NTC ,M10 

C0MM0N/P3/N0CN0I,LN0T,I8UB0P, LPH A SE , NOORUL, NB VRUL , NTI GHT, NLIST, 

1 NL ISTS,NFEAS,LSIMX, 1TRT CT , ITRMAX , BL E , NBRNOD  , PBRNOD , 

2 N8RVAR, NUFOHN  ,XER  NO  0 , TBRNOO.NOOE .LNODE.Z • 30UN0L .BCUNOU, 

3 TS IG> IFE  AS,  I'JRVRl ,IUP0N1,XBRVR1, I3RVR2 , IUFDN2 , XBRVR2, 

R L1C.NITER,N8INV,M7,IPHASE>NPhASE,NM3H7, IALGO.IEOJ 

DIMENSION  IS  (NOR) , 1 dV (NOR  It  N3V (NO 51 ,IUPPER(N05I 
0 1 ME  NSI ON  BI ( NOR) ,U(N06> , P J (NOR » . B ( NOR, NOR) 
IF(ITRACE.GE.1>NRITE(6,1000) 

C INITIALIZE  THE  BASIS  MATRIX. 

001001=1, M7 
0010  0J=1,M7 
IOC  6(I,J>=0.0 
001 33J= 1, M7 
KINO=IBV(J) 

001101=1, K7 
110  PJ(I)=0.0 

CALL  GETCOL  (NZ ,N F, IR. I A, IS . TC.RHS , C2 , Cl ,PJ,ND1,NC2,N03,NDR,N05, 

1 KINO, NZ EROS) 

0012011=1, NZEROS 
I=IS(I1I 

120  B ( I » Jl =PJ  (I ) 

8(MP1,J)=PJ(MP1> 

IF (IPHASE.EQ.2)6(MP2,J)=PJ(MP2) 

133  CONTINUE 

C INITIALIZE  THE  R 1GHT- FA NO -SIDE,  ADJUSTING  FOR  VARIABLES  AT  UPPER 
C 60UNU  IF  NECESsART. 

NRH=  N*M3*H7 ♦ 1 

CALL  GETCOL  C„Z,NP, IR.IA, IS,TC,RHS,C2,Cl,PJ.N0l .NC2.N03 ,NOR ,N05 , 

1 NRH, NZEROS) 

00  IR  0 J=  1,  M7 
1R0  BI(J)=PJ(J> 

00170K=1 , L10 

IF (IUPPER(K) .EQ.O  TGOTO170 
IN0EX=NBV  (K) 

001501=1, P7 
150  PJ(1)=S.C 

CALL  GETCOL  ( NZ.NP, IR ,1 A , IS , TC , RHS.C2.C 1, PJ,NOt ,N02 ,N03,N0R ,N05 , 

1 INOEX, NZEROS) 

0016011  = 1 ,NZEROS 
I=IS(I1) 

160  BIII)=BI(I)  - P J ( I) *U (INDEX ) 

BI (MP1) =BI ( MP1 ) - PJIMPl) *U (INDEX) 

IFdPHAiE.EQ.Z)  BI  !MP2l  = oI  (MP2I  - PJ  (MP2  )*  L (INDEX  ) 

170  CONTINUE 

C OBTAIN  THE  BASIS  INVERSE  AND  THE  CORRESPONDING  RIGHT -HAND -SIDE. 

CALL  INVERT  (IS ,B I.PJ ,SI NV,B,N0R,ND7) 

return 

1G00  FORMAT (12H  *****B1NVRTI 
END 


BINVOGiil 
BIN V3C  C 2 
SI N VO C 3 3 
BINV300R 
BINV3C35 
dINVOCCG 
BINVCO  u 7 
BINVSIdd 
BINV33  39 
BINVOCIO 
9INW3CU 
BINVO  ul2 
9INV3C 13 
BINV3C  m 
BINVOI 15 
BINVOClo 
BINV3C 17 
BINV3C16 
6INV3C19 
BINV3G2J 
H1NV3C21 
OINV3C22 
61  N V 3 i 2 3 
BINVOuZR 
bINVOC 21 
BINV3C26 
61 NV  3 327 
BINV3CZ8 
BINVO C 29 
BINV3C3C 
BINV3C  31 
31 NV  0 I 3 £ 
BINV3I 33 
BINVOt  3L 
BINV3C  35 
BINVD  '-36 
8INV3L 37 
BINVGC  38 
BINVO: 39 
BINV3CRC 
BINVGCR1 
BI NV  3 1 R2 
61  N VO  C <«  3 
B1NV3 IRA 
BI  N VOL  •»  5 
B1NV3C A€ 
BINV0IA7 
BINV0ER8 
BINV3IA9 
B1NVJI  Sv, 
B1NV3L51 
BI  N V 3 L 5 2 
BINV0C53 
8INV005  A 
BINV3C55 
BINV0C56  - 
BINV0057 
BI N VO  C 5 6 
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EXHIBIT  4 (Continued) 


SUBROUTINE  GET CCL  ( NZ ,NP , IR, I A, IS .TC.RHS , C2 ,C1. Pj. NOl .N02 , ND3, 

1 N04.N05, J.NZERCS) 

C GET  THE  J-TH  COLUMN  FROM  THE  CONSTRAINT  MATRIX. 

COMMON/ P1/N.M.ITYFE.NSTRAT.  NOORL 1 , M8VRL 1 , NT ITE1 , NODRL 2 , N8 VRL2 , 

1 NIITE2.FXLIST.LISTOP, IT AP E, IF8 , MXIT ER , MBI NV , IOU TPT , 

2 ITRACE, FSTART.TIMEl, TCL 1 , TOL2 , PCBUB, ALPF A < 1 0 T 
C0MM0N/P2/EPSI,EPSIM,alGN,BEGTM,Ml,M2,M3.H4,Nl,MPl,MP2,NM3,NMlM2, 

1 NM1M3.N1P2.NP1.NSUM.NTC.M10 

C0MM0N/P3/N0CN0T, UN OT , I BUBOP.LP EASE, NOORUL.NB VRUL.NTIGHT.NL 1ST, 

1 NLISTS,  fFEAS.LSTMX,  ITRT  CT  , I IRMA  X , BL  6,  NBRNOO  ,PeR NOO , 

2 N8RVAR,NUPOHN,XBRNOO,T8RNOO,NOOE,LNOOE,Z, BOUNOL  .BCUNOU, 

3 TSIG.1FEAS, IBRVR1 , 1 UPON  1 , XBRVR1 , I8RVR2 , IU FON2 .X8RVR2, 

4 L10.NITEK.NBINV.M7.IPHASE.NPHASE.NM3M 7, IALGO.IECJ 
OIMlNSION  NZ (NOl) ,NP(ND1)  ,IR(N02»  ,IA(NU2) , IS (NO 4 I 
UIMENSION  TC  (N03)  .RHS (NU4l.C2IN0ll.Cl (N05  > . PJ (N04 » 

IF1ITRACE.GE.2) KRITE(6»10C0) 

IF (J.GT.N)GOTOllO 
NZ£ROS=NZ(J» 

NPOINT=NP(J» 

001 j 3K=1,NZER0S 
NPOI NT=NP0INT+1 
1=  IR  ( NP  01  NT  ) 

IS  (0=1 

IN0EX=IA(NP0INT) 

100  P J ( I ) =T  C( INDEX) 

PJ(.1P1I=C2(J) 

IF  (IPHASE.F. Q.2)PJ  (MP2)=C1(J) 

RETURN 

110  IF  (J.GT.N73)GOTC120 
J1=J-NM1M2 

nzeros=i 

IS(1)=J1 

pj(jii=-i.c 

IF (IPHASE.EQ.2JPJ  (HP2»=C1(J) 

RETURN 

12C  IF (J.GT .NM3M7)G0T013t 
J1=J-NM3 
N 2ER0S= 1 
ISI1)=J1 
PJ(J1)=1.0 
RETURN 

13C  001401=1, P 
140  PJ(II=RHS(I> 

PJ(MP1I=RHS(MP1» 

IF(IPHASE.EQ.2)PJ (MP2 )=RHS(MP2) 

RETURN 

10JC  FORMAT ( l^H  ****»GETC0L» 

ENO 


GETC0001 
GETCOOC  2 
GETC900  3 
GETCOO:4 
GETC0E05 
GETC00C6 
getcoc;7 
GETCOC Jfl 
GET  CO  C C 9 
GETCOLli 
GETCOCil 
GETC0C12 
GETC3C13 
GETC0C14 
GETC3015 
GETC0L16 
GETC0C17 
GETCOC ia 
GETCU  19 
GEJC3C2C 
GETC3C21 
GE  f CO  C 2 2 
GETC0C23 
GET  CO  C 24 
GETC0C2S 
GETC0C26 
GETCC027 
GETCCC26 
GETC0C29 
GETC0C3: 
GETC3C31 
GETC0C32 
GETC3C33 
GETC3  u 34 
GETC3C  35 
GlTCCC  36 
GETC3C37 
GETC0C38 
GETC0C39 
GETC0C4C 
GETCOC' 41 
GETC0C42 
GETCOC*.  3 
GETCO  Ch4 
GETC0C45 
GET  CC I 46 
GET  CO  C*<7 
GETCOCmS 
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EXHIBIT  4 (Continued) 


SUBROUTINE  INPUT1  tNZ,NF,N01> 

C RE  AO  THE  NUMBER  OF  LESS  THAN,  E3UALITY,  GREATER  THAN  CONSTRAINTS. 

C RE  AO  THE  NUMBER  OF  NONZERO  ENTRIES  3V  COLUMN.  DEVELOP  THE  COLUMN 
C POINTERS  ANO  TOTAL  STORAGE  REGOIRED. 

COMMON /Pi /N,M, IT YPE, N STR AT.NOORL1 ,N9VRL1 ,NTITE 1 ,NODRL2 ,NBVRL2 , 

1 NlITE2,MXLIST,LIST0P,ITAPE,IFe,MXITER,M3INV,I0UTPT, 

2 ITRACE,MSTART,TIHE1,T0L1,T0L2,PCBU8,ALPHA (10 > 
C0MM0N/P2/EPSI ,EPSIM, eiGN , oi&TM ,M1 ,M2 , M3 ,M 4, N1 , MP1 , MP 2 ,NM3 ,NM 1M2 , 

1 NM1M3,N1P2,NP1,NSUM,NTC,M10 

DIMENSION  NZ(NDl)  ,NP(N01) 

IF ( IT RACE. G£.1)HRITE(6,1QC4) 

REAOtITAPE, 1GCC) Ml, M2, M3 

HRITEC6,10ui>Ml,M2,M3 

M4=M2*M3 

N1»N*IM3*M1)MM2»M3> 

MP1=M*1 

MP2=M>2 

NM3=N»M3 

NM1M2=N-M1-M2 

NM1M3=N»M1+M3 

N1P2*N1*2 

NP1=N+1 

R£AO( I TAPE , lc  . ) (N2 (J) , J=1,M> 

HRI TE  ( 6, 10  0 2) ( NZ ( J) ,J=1,N> 

NP(11*0 
OOIJO J=2,N 

1C  a NP( J) =NP( J-l) *NZ (J-l) 

NSUM=NP(N)*NZ  «N» 

PERCT=NSUM 

DENOM=M*N 

PERCT=l?j.*PERCT/OENOM 
WRITE (6, 10C 3) N SUM  ,PERCT 
RETURN 

1000  F ORMAT (1615) 

1001  FORMAT (38HCNUMBER  OF  CONSTRAINTS  BY  TYPE  =,315) 

1002  FORMAT (38H0NUMBER  OF  NONZERO  ENTRIES  BY  COLUMN  * ,1615/ < 3 8X ,1 615 ) ) 

1003  FORMAT (38HCT0TAL  NUMBER  OF  NONZERO  ENTRIES  =,110, 

1 ISM  (A  DENSITY  OF  ,F5.i,i!H  PERCENTj.l 

1004  FORMAT (12H  •••••INPUT1I 
END 


INPUOOfil 
INPU0002 
I NPUOCO  3 
INPU00C4 
INPU0C05 
INPU00C6 
INPU0007 
INPU0CC  8 
INPUC0C9 
INPU0010 
INPU001L 
INPU0  012 
INPU0C13 
INPU0014 
INPU0015 
INPU0C16 
INPU0317 
INPU0.18 
INPU0C19 
INPU0020 
INPU0C21 
INPUu.22 
INPU0023 
INPU0C24 
INPU0025 
INPUC  v 26 
I NPU0027 
INPU0C28 
INPU0 029 
INPUC .30 
INPU0031 
INPU0032 
INPU0C33 
INPUk.0  34 
INPU0035 
INPUC  0 36 
INPU0S37 
INPU0C38 
INPU0039 
INPU0040 


EXHIBIT  4 (Continued) 


SUBROUTINE  INPUT2  ( NZ ,NP , IR, I A , NO  1 , N02) 

C READ  THE  CONSTRAINT  MATRIX  COLUNN-BY- COLUMN.  IT  IS  ASSUMED  THAT 
C THE  CONSTRAINTS  ARE  OROEREO  (LESS  THAN,  EQUALITY,  GREATER  THAN 
C CONSTRAINTS). 

COMMON/Pl/N,M,ITYPE,NSTRAT ,NOORLl , N3VRL1,NT1T£1,N0DRL2,NBVRL2, 

1 NTITE2,MXLIST,LISTOP,ITAPE,IFB,MXITER,MBINV,IOUTPT, 

2 I TRACE ,MSTART,TIMEl,TOLl,TOL2,PCBUB, ALPHA  (10) 

COMMON /P2/E PS I,EPSIM, BIGN , BEGTM , M 1 , M2 , M3 , M A, N1 , MPl , HP  2 ,NM3 , NM 1M2 , 
1 NM1 M3, N1P2, NP1 , NSUM , N TC , Miu 

01 MENS ION  NZ(NOl) , NP( N01 ) , I? ( N02) ,IA(ND2> 

IF ( ITRACE.GE.l ) WRITE (6, 10 t 3) 

OO130J*l,N 
K1=NP( J>*1 
K2=NP(J)*NZ(J) 

REACH  ITAPE,  103  0)  ( IR  (K ) , I A ( K)  , K=Kl , K2) 

100  WRITE ( 6, 10 Cl) J,(IR(K) ,IA(K) ,K=K1,  K2) 

RE  AO  ( ITAPE  , 10  0 0)  NTC 

WRITE(6,1002)NTC 

RETURN 

1C00  FORMA T (1615 ) 

1001  FORMAT (dHCCOLUMN  ,I5,16H,  ROH/CONSTANT  = ,1 615/ ( 29X , 161 5) ) 

1002  FORMAT (22H0NUMBER  OF  CONSTANTS  =, 15) 

1003  FORMAT (12H  **• ** INPUT2) 

END 


INPUj  .11 
1NPU0CC2 
INPU0 003 
INPJ0CC4 
I NPU 1 .1 5 
INPUG.C6 
INPU  0CC  7 
INPUOuCS 
INPUj. u9 
INPU0C1C 
INPU 0011 
INPU0C12 
INPU0.13 
I NPU  0 014 
I NPU  0 015 
INPU0016 
IHPUG.lZ 
INPU0018 
INPU3019 
I NPU  0 02  G 
INPU.  .21 
INPU0C22 
INPU0023 
INPU0024 
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EXHIBIT  4 (Continued) 


SUBROUTINE  INPUTS  TINT. ICC, NV.TC, BORIC, C2, SIGNAL, SIGHAU,V,N01, NOS, INPUO 001 

1 N04, N06)  INPU8002 

C READ  THE  TABLE  OF  CONSTANTS,  THE  RIGHT-MAND-SIOE.  THE  LONER  ANO  INPU0003 

C UPPER  BOUNOS,  THE  COST  DATA,  ANO  THE  LISTS  OF  INTEGER  ANO  CONCAVE  INPUB004 

C VARIABLES.  INPU0005 

CONMON/P1/N ,H,ITYPE,NSTRAT, NOOPL1 ,N8VRL 1 , NTITE1 , NOORL 2 , NBVRL 2*  INPU0006 

1 NTITE2«M)TLIST , LIS  TOP, I TAPE, IF 8, MX  ITER, MB INV , IOUTPT , INPU0007 

2 IT  RACE • HSTART ,TIME1,TOL1,TOL2, PCBUB, ALPHA ( 1 0 I INPU0008 

COHNON/P2/EPSI ,EPSIH,BIGN,BEGTN, H1,H2, M3 ,H4 ,N1,MP1 ,NP2 ,NH3,HM1H2 * INPUO 009 

1 NH1H3 , N1P2 » 1 , NSUM , NTC, HI  0 INPU0010 

CONMOM/P5/IROUNO  INPU0011 

OIHENSI  ON  INTTN01),ICC)N01)  «NV  TN06)  INPU0012 

DIMENSION  TC  (NO 3 ) , BORIS  I NO 4), C2 (ND1) .SIGNAL IND6)«SIGHAU)N06) , INPU0013 

1 V ( N06 ) INPU0014 

OATA  BI G I NT  / 1 . 0 E ♦ 14/  INPU0015 

IFTITRACE.GE.1)WRITEI6,1014)  INPU0016 

C READ  THE  TA8LE  OF  CONSTANTS  ANO  THE  RIGHT-HANO-SIOES.  IT  IS  ASSUMEO  INPU0017 

C THAT  THE  RIGHT-HANO-SIOES  ARE  NONNEGATIVE.  INPU0018 

REAOlITAPE.lOClt (TC(K» , K*l, NTCI  INPU0019 

READ (IT APE, 1GG1 1 (BORIGT IT  , 1=1 »H)  INPU0020 

IF( IT APE. NE. SIRE NINO  ITAPE  INPU0021 

BORIGIHPIT-O .0  INPU0022 

NRITET6.1032) TTCTK),K=1,NTC>  INPU0  0 23 

NRITET5,1003> (BORIGI I) , 1=1, H)  INPUO 024 

C REAO  LONER  ANO  UPPER  BOUNOS  ON  THE  VARIABLES.  INPU0025 

DOIQO J= 1 ,N1 P2  INPU0026 

SIGMALC Jl=0.0  INPU0027 

103  S IGHAIM  J ) =81 GN  INPU0028 


REAOT5, 1000) NON 

WRITET6,1004)NON 

IFINON. £0.0) GOT  0120 

REAO (5, 1000) (NV  T K) , K = l, NON) 

REAO  <5, 10  01) T V T K ) » K=1 « HON) 

WRITE (5 ,103  5) <NV  «K) ,K=1,N0N) 

WRITE  IS,  10 06) (V(K) ,K=l,NON) 

00110<=1,NON 

J=NV  (K) 

110  SIGNAL! J)=VTK> 

120  REACTS* 1000) NUP 
WRITE!S,1007)NUP 
IFT NUP. EQ.OI GOT0140 
REACTS, 1000) TNVTK) ,K=1,NUP) 

REACTS,  10  01)  TV  TK)  ,KS1,  V'JP) 

WRITE TS, 100 5) (NV TK) , K=l , NUP) 

WRITE! S, 1008) (V(KI ,K=1,NUP) 

00130<=1,NUP 

J=NV!K> 

130  S IGHAUT  J) =V  < K) 

C REAO  COST  OATA. 

140  REACTS, 1031) TC2 ( J) , J=l, N ) 

WRITETS ,1009) (C2 T j) , J=1 , N) 

001 50 Js 1 ,N 

150  INT!J)=0 

I F T ITYPE.EQ  .2  .OR.  ITV»E .EO .3 ) G0TO170 
C REAO  THE  LIST  OF  INTEGER  VARIABLES. 
REAOT5, 1000) NINT 
REAOT5,  1003  ) INVIK) ,K=1,NINT) 


INPU0029 
INPU0030 
INPU0031 
INPU0032 
INPU0033 
INPUQ034 
INPU0035 
INPU0036 
INPU0037 
INPU0038 
INPU0C39 
INPU0040 
INPU0041 
INPUO  042 
INPU0043 
INPUO  044 
INPUO  045 
INPUO  046 
INPUO  047 
INPUO  048 
INPUO  049 
INPU005Q 
INPUO  051 
INPU0052 
INPU0053 
INPUO  054 
INPUO  055 
INPU0056 
INPU0057 
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EXHIBIT  4 (Continued) 


NRITE(6.1010)NINT 
MRITEiS.lOU)  !NVIKI .K-t.NINT) 

001  60<«t, MINT 
J*NVK> 

1 NT  I Jl  *K 

IF (SIGMAUIJ) «LE.  BIGINT) 60T0160 
SIGHAJI  JMBIGINT 
160  CONTINJE 
170  0018QJ-1.N 
100  ICC(J»=0 

IFdTVPE.EQ.l  .OR.  ITV>E.EQ.3)GOT0200 
C READ  THE  LIST  OF  CONCAVE  VARIABLES. 

REAO  15*1000) NCC 

READ  15,  1009 ) 1NVIKJ  . K=l»  NCC) 

HRITEI6 ,1012 INCC 
HRITEI5,lC13MNV(Kt  ,K*l,NCCl 
00190<*1«NCC 
J>NVIKI 
190  ICC(JK< 

200  IFIITY’E.NE. II  RE  TURN 

C FOR  THE  HIXEO  INTEGER  LINEAR  PROGRAM.  DETERMINE  IF  THE  OBJECTIVE 
C FUNCTION  IS  INTEGER  VALUED. 

IROUN0*0 

00220J=1,N 

IFCINTIJJ .NE .0IGOTO210 
IF(C2(J> .NE . 0 .0) R ETURN 
GOTO220 
210  IC2=C2 I J) 

FC2=IC2 

IF(C2( Jl .NE.FC2 1 RETURN 
220  CONTINJE 
I ROUNDS  1 
RETURN 

1000  F ORHAT ( 1615) 

1001  F ORMAT! 6E12 . 0 ) 

1002  F ORHAT ( 22H0T ABLE  OF  CONSTANTS  = . 6E15. 6/ I22X.6E15. 6» I 

1003  FORMAT! 22HORIGHT-HANO-SIOE  =,6E15 .6/ < 22X.6E15.6)  I 

1004  FORMAT (42H0NUM8ER  OF  VARIABLES  HAVING  LONER  BOUNOS  -.15) 

1005  FORMAT ( 22H0 V ARIA BLES  = , 1615/ I22X, 1615 1 > 

1006  FORMAT!  22H0LOHER  EOUNDS  = , 6E15 . 6/ ( 22X, 6E15.6) » 

1007  FORMAT! 42H0 NUMBER  OF  VARIABLES  HAVING  UPPER  BOUNOS  s»I5> 

1000  FORMAT! 2 2H 0 UPPER  BOUNDS  = , 6E15. 6/ I22X, 6E15.6) I 

1009  F ORMAT I22HOCOST  COEFFICIENTS  = .6E15 . 6/ 1 22X.6E15.6M 

1010  FORMAT  1 3 OHO  NUMBER  OF  INTEGER  V TIABLES  =,I5» 

1011  FORHAT122HOINTEGER  VARIABLES  = , *615/ I 22X,  16151) 

1012  F ORMAT I30H0NUMBER  OF  CJNCAVE  VARIABLES  = ,I5) 

1013  F ORMAT 1 22H3  CONCAVE  VARIABLES  = ,1615/ ! 22X, 16I5I » 

1014  FORMAT! 12H  *****INPUT3) 

ENO 


INPU0058 
INPU0059 
INPU0060 
INPU0061 
INPUO  062 
INPU0063 
INPU0064 
INPUO  065 
INPUO  0 66 
INPUO  067 
INPUO  060 
INPUO  069 
INPUO 070 
INPUO  071 
INPU0072 
INPU0073 
INPU0C74 
INPU0075 
INPUO 076 
INPU0077 
INPU0070 
INPUO 079 
iNPUooao 
inpuoooi 

INPUO 082 
INPUO  08  3 
INPUO  0 8 4 
INPU0G85 
INPUO  086 
INPUO  0 8 7 
INPUO  088 
INPU0089 
INPUO  090 
INPUO  091 
INPUO  092 
INPUO  093 
INPU0094 
INPUO  095 
INPU0096 
INPUO  097 
INPUO  0 98 
INPU0099 
INPUO 100 
INPUO 10 1 
INPUO 10 2 
INPUO 10 3 
INPUO 10  4 
INPUO 10  5 
INPU0106 


EXHIBIT  4 (Continued) 


SUBROUTINE  INPUT**  (NZ ,NP, IR ,1  A, IS ,N V, I BV ,NBV , IUPPER  ,TC,BOfiIG,RHS, 

1 C2,C1»BI ,8N, l,PJ,8INV,e,NDl,ND2,NO3,N0**,N05, 

2 N06.N07I 

C ESTABLISH  THE  INITIAL  BASIS,  BASIS  INVERSE,  AND  RIGHT-H ANO-SIOE  FOR 
C THE  LP. 

COMMON/ Pl/N»H»ITYFE,NSTRAT,NO CR 11 .NBVRL 1 , NTITE1 , NOORL2 , KB VRL2, 

1 NTITE2,HXLIST,LIST0P,ITAPE,IFB,HXITER  »HBI NV , IOUTPT , 

2 ITRACE,PSTART,TIHE1,TCL1,T0L2,PCBUB, ALPHA  1 101 
C0HH0N/P2/EPSI < EPSIH*8IGN,BEGTM,Ml»M2»M3tMI*,Nl»MPl, HP 2, NN  3 > NH1H2 , 

1 NH 1H3 , N 1P2, NP1 ,NSUH,NTC,H10 

C0MH0N/P3/N00NCT.UN0T ,1 EUdOP*LPFASE,NQORUL»NBVRUL ,N TIGHT, NLIST* 

1 NLISTS,NFEAS,LSTMX,ITRT (T , ITRHAX, BLd, NBRNOO ,PbRNOO, 

2 NBRVAR, KUPCNN .XBRNOO , TBRNOO.NOOE, LNOOE.Z.BOUNOL , BCUNOU, 

3 TSIG, IFE  AS,  IB  RVRlfIUPON],X8RV(<l, I BRVR2,  IUFON2  ,X  BRVR2, 

*,  L10, NITER, N 81 NV,M7»IPHASE  , NPHASE.NM3H7,  IALGO.IEOJ 

DIMENSION  NV(N06) , IbV (NO*, l , NBV ( F05I ,IUPPER(N05I 
01  HENS  I ON  B I (N0**»  ,BN(N05>  ,U  (N06 1 , FJ  (NO**  > , B ( NO**,  ND**» 

IF (I  TRACE. GE. 1) WRITE (6, 10 03) 

C READ  INITIAL  FEASIBLE  BASIS.  INITIALIZE  PARAMETERS  USED  IN  LP. 
L10=N1-H 
001001=1, L10 
IUPPER ( I ) =0 
100  BN (I ) =0 . 0 


INPU0001 
INPU0002 
INPUOOOJ 
INPU000  ** 
INPU0G05 

iNPusooe 

INPUQ007 
INPU0008 
INPU000 V 
INPU0010 
I NPUO  Oil 
INPU0O12 
I NPUO  C 1 3 
INPU3C1** 
INPU0015 
INPUOO 16 
I NPUO  C 1 7 
I NPUO  C l 8 
I NPUO  019 
INPU0020 
I NPUO  0 21 
INPU0C22 
I NPUO  0 2 3 


IF(IFB.EQ.O) GOTO210 

C INITIAL  FEASIBLE  BASIS  PROVIOEO  AS  INFUT. 

RE  AO <5,  10  00  ) (IBV (I) ,I=1,N> 

IF  (M**.EQ.0)GOTO13C 

001101=1, M 

IF ( IBV t I) .GT .NHlH3)GOTOl20 
110  CONTINUE 
G0T013Q 

c there  are  artificial  variables  in  the  initial  basis. 

120  IBV(HP1)=N1*1 
18 V t MP2 ) =N1P  2 
N7=NP2 


I NPUO  0 2 *• 
I NPUO 0 2 5 
I NPUO 026 
INPU0027 
I NPUO  0 28 
I NPUO  C 2 9 
I NPUO  030 
I KPUOG  31 
I NPUO  0 32 
INPU0C33 
I NPUO  0 3 A 
INPUOO  3 5 


IPHASE=2  INPUOO  36 
NPHASE= 1 INPU0037 
CALL  0BJ1  (NZ,NP,IR,IA, IS  ,1  BV.TC , BORIG, RHS, Cl «N01, N02 ,N03 , N0**,N05 )INPU3C38 


GOTO  1<*0 

C THERE  ARE  NO  ARTIFICIAL  VARIABLES  IN  THE  INITIAL  BASIS. 
130  IB V ( NP1 )=N1+ 1 
H7=MP1 
IPHASE=1 
NPHASE= 0 

1<»0  NRITE(6,1C01 ) (IBV  (I)  ,1  = 1 ,M7) 

C FORM  THE  LIST  OF  NON-EASIC  VARIABLES. 

1NDEX=Q 


INPU0Q39 
INPUOO*tO 
INPUOOLl 
INPUOO  *.2 
I NPUO  0*.  3 
INPUOO**  ** 
INPUOO  <•  5 
INPUOO<*6 
INPU00<*7 


0016  0K=  1,NH1M3 
001501=1, M 

IF(K.EQ.IBV(I)>  GOT 0160 
150  CONTINUE 

INDEX=IN0EX*1 
NBV( INDEX ) =K 
160  CONTINUE 

L10= INDEX 

C REAl  NON-BASIC  VARIABLES  INITIALLY  AT 
REA0(5, 1010 )NUP 


INPUQ0<*8 
IMPU00**9 
INPU0050 
iNPuaoil 
INPU0052 
INPU0053 
INPUOO  5*. 
INPUOO 55 

BOUNO.  INPU0056 

INPU0I57 


EXHIBIT  4 (Continued) 


IF (NUP. EQ. 0 ) GOTO20  G 

INPU0G58 

REAOT5, 1000 1 (NV(KI ,K«1,NUP» 

1NPU0059 

WRITE (6, 130 21 (NVTKI ,K  = 1 ,NUPI 

INPU0060 

OOl S0K* 1 , NUP 

INPU0C61 

INOEX=NVCK) 

INPO0C  62 

001701*1, L10 

INPU0C63 

IF (nBV( I) .EU. INDEX) GO TO160 

INPU0C64 

170 

CONTINUE 

1NPU0C65 

18b 

IUPPERT II =1 

INPU0C66 

BN S I ) *U ( I NOE  X) 

INPJ0C67 

19b 

CONTINUE 

INPU0068 

230 

CONTINUE 

INPU0G69 

FORM  THE  BASIS  INVERSE  ANO  INITIALIZE  THE  RIGHT-HANO-SIOE. 

INPU0C70 

NM3M7=N*M3*M7 

INPU3C71 

CALL  dINVRT  (NZ,NF,1R,IA, IS  , Id V ,N8V , IUPPER , TC, RHS, C2, Cl, d I ,U,PJ, 

INPUOC  72 

1 61NV , d ,N01 ,N0 2 ,ND3 ,N 14 ,NU5 ,NC6 ,ND7 > 

Ml  0 =H7 

INPUCl 73 
INPU0L74 

IEOJ=0 

INPUOC  75 

N1T£R=3 

INPUOC  76 

Nti INV* 3 

INPU3C77 

RETURN 

I NPU3C  7 d 

INITIAL  FEASIBLE  oASIS  NOT  PROVIOEO  AS  INPUT. 

INPU0L79 

210 

IF  (M4  .EO. 0 1 G0T023  G 

INPU0C8C 

M 7=HP2 

INPU0081 

L 1 MI T=N*M3» 1 

INPUOC 82 

JCOUNT*NlP2 

I NPU  J C 8 3 

K=Q 

INPUOC  84 

U022  0 1=  LI  MI T , JCCUNT 

INPUOC  8 5 

K=K*l 

INPU0386 

220 

IBV(KI=I 

INPUOC  87 

IPHA5£=2 

INPUOC  88 

NPHA  SE=  1 

INPUOC  89 

CAll  OB Jl  CNZ,NP,IR,IA,lS,IdV,TC ,eORIC,RHS,Cl.N01 ,N02 ,N03 ,N04 ,NU5 » I NPU3 C 90 

GOT0250 

INPU0C91 

230 

M7=MP1 

INPU0C92 

LIMIT=N*M3»1 

INPU3093 

JCOUNT=n1«1 

INPU0C94 

K=0 

INPU0095 

0024 0 I=LI FIT , JCOUNT 

INPU0C96 

K=K*1 

INPU3C97 

240 

1BV(K»=I 

INPU0C98 

IPHASE=1 

INPUOC  99 

NPH ASE*  3 

INPU3  103 

250 

IF(IOUTPT.GE.3»HRITE«6,1001) (IBVtIT ,1=1 ,M7» 

I NPU  0 1 0 1 

002601*1, L10 

INPU0102 

280 

NBV(I)=I 

INPU01C3 

NM3M7=N*M3*M7 

INPU01C  4 

002701=1, M7 

INPU310  5 

00270J=1,M7 

INPU010  6 

27  0 

BTI, J)=fl.O 

1NPU0107 

00  28  OK* 1 , M7 

INPU3138 

280 

B (K, <1=1.0 

INPU0109 

NRH=N*M3*H7»1 

INPUO 110 

CALL  GETCOL  TNZ.NP , IR.IA, IS  ,TC ,RHS,C2, Cl, PJ,NOl , N02 ,N03 ,N04,N05, 

I NPU 0111 

1 NRH, NZEROST 

INPUO 112 

00290J=1,H7 

INPU0113 

290 

81  (J)=PJ(J) 

INPUO 11 4 

111 


) 


EXHIBIT  4 (Continued) 


H10*M7 

IEOJ-0 

NITER*0 

NBINV-0 

RETURN 

1000  FORMAT  (1615) 

1001  FORMAT (25H0 INITIAL  FEASIBLE  BASIS  =, 1615/ < 25X, 16I5> > 

1002  FORMAT (37HONON-BASIC  VARIABLES  AT  UPPER  BOUNO  « ,1615/ (37X.16I5I I 

1003  FORMAT (12H  •♦♦••INPUT4) 

END 


INPU0115 

INPJ0116 

INPU0117 

iNPuona 
INPU0119 
INPU0120 
INPU j 121 
INPUO 122 
INPU012I 
INPU j 124 
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EXHIBIT  4 (Continued) 


SUBROUTINE  INPUTS  ( NZ , NP, Ik, I A, IS , I BY ,NB V , IUPPER, TC ,RMS, C2 ,C1 ,BI , 
1 U,  PJ.a.NJl  ,NJ2  .N03.N0*.,  N05,N0b> 

C OETERMI NE  THE  APPLICABLE  LP  ALGORITHM. 

C0MH0N/Pl/N,M,  ITYPE.NSTHAT.NOORLl , N9VHLi,NTITEl,N00RL2,NBYRL2, 

1 NTITE2,MXlI3T,LIST0P,ITAPE,IFB,mXITER,MBINV,IUUTPT, 

2 I TRACERS  TART  .TIME1  , TOL  1 , T0u2  , PC  3 LB,  ALPHA  (1.1 

COMMON /P2 /EPS I ,-PSIM,  81  ON , eE GTM ,M 1 , M2 , M3 , M 4, N1 , MP1 , MP2 ,NM3 , NM 1M2 , 
1 NM1M  J,NlP2,f.'Pi,NSUM  ,N  TC  , Ml. 

COMMON/P3/NODNOT,LNOT,I 3UG0P,L PHASE, NO0RUL,NBVRUL,N TIGHT, NLIST, 

1 NLIS  TS.NPEAS, LSTMX.IT  RTOT,  ITP.NAX  ,BL9  , NBRNOD  ,P9RN00, 

2 N3RV  AR.NUPOnll  .X'RNOD,  Tb.-xNOl) , NODE  ,L  NOOE  ,Z,  8C UNUL , BOUNUU , 

3 TSIGfIFEAS.  IUkYRI , I UP  ON  1 , X3KVA.1,  IBRVR2, IUP0N2 , XBRVR2, 

4 L10,NITER»NBINY,M7,IPHASE,NPHASE  , NM3N  7, IALGO.IEOJ 
DIMENSION  : S ( N DA ) , IBV < N J4 ) , NB V t NO 5 > , IUPPER  (ND5) 

DIMENSION  B I ( N 04  ) .J(NUo)  , PJ<  NU4)  , >3  (NU4.ND4  ) 

IF(ITRACE.GE.1)WRITE(6, UIGI 
C CHECK  PRIMAL  FEASIBILITY. 

IPRIM* 3 

ooiooi=i,m 

IF (81 < I > .LT.EPSIMIGOTO120 
l.U  CONTINUE 
0011. 1=1, M 

n=iav  (i) 

IF ( U( 1 1) -81 ( I ) .LT.EPSIMIGOT0120 
110  CONTINUE 
IPRIM=1 
120  CONTINUE 

C CHECK  DUAL  FEASIBILITY. 

I DUAL2  0 

D015. IP0S=1 .L1C 
KIN0=N3Y( IPOS) 

001301=1, M7 
130  PJ(I)=0.0 

CALL  GETCOL  ( NZ ,NP, 1R , I A, IS,  TC, RHS ,C2 ,C1 ,P J ,N01 ,ND2 ,N03 ,N04,ND5 , 

1 KIND, NZE  ROS ) 

Ql=3.3 

0014.J1=1,NZER0S 

J=IS(J1) 

140  Q1=Q1  ♦ 81MP1, J)*PJ(J) 

Q1=Q1  ♦ B(MP1,MP1)*PJ(MP1) 

IF(IPHASE.E0.2)U1=Q1  ♦ 8 ( MP1 , MP2) * PJ (MP2 ) 

IF(IUPPER( IPOS) .EQ.l) Ql=-01 ‘ 

IF(01.LT.EPSIM)G0T016Q 
153  CONTINUE 
I DU  AL  = 1 
160  CONTINUE 

C SELECT  THE  ALGORITHM  TO  BE  USED. 

IF(I0UTPT.LE.2)G0T017, 

IF(IPhASE.E0.2)WRITE(6, 13C0) 

IF(IPHASE.EU.l)hRITE(6, 1031) 

170  IFdPRIM.EQ.O)  GOT0193 
IFdOUTPT.LE.2  ( GOT  018  . 

WRITE (6,1002) 

IF (IPHASE. EQ.2 ) mRITE(6,  13  36) 

IFdPHASE.EQ.  1 )HRITE(6, 10  37) 

180  I ALGO= 1 
RETURN 
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INPUO. Cl 
INPU00C2 
INPUOwC  3 
INPU03C4 
INPUOOO  5 
INPUO  0C6 
I NPUO . C 7 
INPU6008 
INPU0CG9 

inpuocio 

INPUOull 
INPUJ  12 
I NPUO 31 3 
I NPUO  Cl 4 
INPUO. 15 
INPUJC16 
INPUO  0 1 7 
iNPuocie 
INPUO. 19 
INPUO 020 
INPU0021 
I NPUO 3 22 
INPU0023 
INPU.-24 
INPUO  02  5 
INPUO  3 26 
INPU0327 
I NPUO 32 8 
I NPUO 329 
INPU003C 
INPU. .31 
INPUO  C 32 
I NPUO 033 
INPUO  334 
INPU. 335 
INPU0036 
INPUO  337 
I NPUO 03 6 
INPU. .39 
I NPUO 340 
INPUO  341 
I NPUO 042 
INPUO. 43 
INPU0044 
INPU  0 04  5 
INPUO  046 
INPU0047 
INPU 034 8 
INPUO 049 
I NPUO  350 
INPUO 351 
INPU0C52 
IKPU00S3 
INPUO  054 
XNPUOGSS 
INPUO  356 
INPU0057 


1 


EXHIBIT  4 (Continued) 


191  IFdCOTPT.LE.2IGOTO200  INPU005I 

WRITE (6,1003)  INPUO  059 

209  IF ( 10U AL.EQ.O) GOT 0220  INPUGOBO 

IF(IOUTPT.LE.2)GOTO210  INPUO-61 

WRITE (6,1034)  INPUG062 

NRITE ( 6, 10  0 S)  INPU3G63 

210  IALG0*2  lNPUu.64 

IFdPHASE.EQ. 1 (RETURN  INPU0C65 

NPHASE  *2-  INPU0066 

M10=MP1  INPUJC67 

RETURN  INPUw.68 

220  lF(IOUTPT.LE.2>GOTO230  INPU0C69 

WRITE (6,100 5)  INPU0370 

WRITE (6,1009)  INPUG071 

230  IALGO=  0 INPUJi 72 

RETURN  INPU0073 

1000  FORMAT (44HGTHERE  ARE  ARTIFICIALS  IN  THE  INITIAL  BASIS.)  INPU0G74 

1001  FORMAT (47H0 THE  RE  ARE  NO  ARTIFICIALS  IN  THE  INITIAL  BASIS.)  INPU0375 

1002  FORMAT (30H  THE  INITIAL  EASIS  IS  PRIMAL  FEASIBLE.)  INPUJ.76 

1 J u 3 FORMAT (42H  THE  INITIAL  BASIS  IS  NOT  PRIMAL  FEASIBLE.)  INPU0077 

1006  FORMAT <36H  THE  INITIAL  BASIS  IS  OUAL  FEASIBLE.)  INPU0J78 

1005  FORMAT <40H  THE  INITIAL  BASIS  IS  NOT  OUAL  FEASIBLE.)  INPU0079 

1006  FORMAT <54H  THE  PRIMAL  ALGORITHM  (TWO  PHASE  METHOO)  WILL  BE  USED.)  INPUJ080 

10C7  FORMAT (54H  THE  PRIMAL  ALGORITHM  (ONE  PHASE  METHOD)  WILL  BE  USEO.)  INPU00B1 

1008  FORMAT (41H  THE  OUAL  SIMPLEX  ALGORITHM  WILL  BE  USEO.)  INPU0082 

1009  FORMAT (64H  NEITHER  THE  PRIMAL  NOR  THE  OUAL  SIMPLEX  ALGORITHMS  CAN  INPU0C83 

1BE  USEO.)  INPU0084 

1010  FORMAT (12H  •••••INPUT5)  INPU0085 

ENO  1NPUQ366 
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EXHIBIT  4 (Continued) 


SUBROUT  INC  INVERT  ( IS. 81 , FJ  ,BINV  , (, N04.N07) 

C GAUSS- JOROAN  HETHOO  OF  MATRIX  INViRSICN. 

COHHON/P1/N,  M, I T VPE,NSTRAT, NOCRL 1 ,N3VRL 1. NTIT El , NOORL2 , NS VRL2 , 

1 NTITE2,MXLIST,LIST0P»IT APE  ,IF3,PX1TER fM3INV, IOUTPT, 

2 I T RACE , MS TART  ,TIME1,TOL1,TOL2 , PC BUB, ALP HA  1101 


INVE000  1 
INVE0C02 
INVEOC03 
INVEOCO  4 
INVE0005 


C0HM0N/P2/EPSI,£P£IM,  BI  GN ,BEGT M.  H 1 , M2 , M3 , M4 , Nl, MP1 , MP2 , NM 3 , NM1H2 , INVEO 006 
1 NM1H3,N1P2,NP1,NSUH,NTC,N10  INVE0G07 

COMMON/ P3/NOONOT, UNOT  ,IBUBOF,LPHA £E , NOORUL , NBVRUL, NTI GHT , NLIST,  INVE9LJ8 

1 NLISTS, FFEAS,LSTMX,ITRTCT,ITRMAX,0LE,N8RNOO,PBRNOC,  INVE0009 

2 NBRVAR, KUPOHN ,X eRNOO , TBFNOO.NOOE.LNOOE ,1 , BOUNOL .BCUNOU,  INVE  0 010 

3 TSIG,IF£AS, IBRVR1 ,IUPQN1, XBRVR1, IBRVR2, IUPON2 ,XBRVR2,  INVEO Cil 

4 L10, NITER, N8INV,H7,IPHASE,NPHASE,NNJH7,IA1,G0,IECJ  INVE0C12 


01  HE  N3 ION  IS (NOG)  INVE0G13 

DIMENSION  BI  I NOG  I »PJ  I NOG  I »8INV  (NO  7*  NO  7 ) >B  IN04 ,ND4  > INVE0C1A 

IF  I X TRACE  .GE.l)  KRITE»e>»1001>  INVt0015 

C SOLVE  IB ) (PJI  = BI,  DEVELOPING  THE  INVERSE  OF  8 IN  THE  PROCESS.  INVE0C16 

001001=1, M7  INVE3G17 


0013  0 J=1 , M7 
1UC  BINVII, JI=G.C 
00 1 10K- 1, M7 
BlNV I K , K I = 1 • C 


INVE3C18 

INVEOC'19 

INVE0C20 

INVE0C21 


PJt<>=8IIKl 
11c  IS  IKI = 0 

0017  0L= 1 , M7 

00 120K=1 , M7 

IFIISIK) • NE. 6) GOT  C120 

IF  tABjl J<K, LI I.GI.EPS I) GO  10 13: 

12G  CONTINUE 

C CAN  OKOP  OUi  OF  THIS  LOOP  ONLY  IF  A IS 
MRIT E 16, 1000  ) 

CALL  EXIT 
RE  TURN 
13G  ISIKI-L 


INVEO  c 22 
INVEO C 23 
INVEO  C 2 A 
INVE0025 
INVEG  G26 
INVEO  C 27 
I NVEO  C 28 

-CONDITIONED  OR  SINGULAR.  INVEGC29 

INVEC L3C 
INVE0G31 
INVESC32 
INVEO  C 3 3 


T-l. /d (K,L) 

PJIKI=PJIK)M 
DO  14  0 J=  1 , M7 
BIK, J)=BIK, J l*T 
140  BINVIK, JI=BINVIK, J)*T 
001601=1, M7 
IFII.EQ.KIGOTG160 
T=BII,L) 

IF (ABSIT) .L£. EPS IIGOT 0160 
T1=PJIII  - T*PJ IKI 
IF  IABSITl).LE.EPSi>Tl=O.C 
P J II I =T 1 
00150J=1,M7 
Tl=dlI,J)  - T *B IK , Jl 
IF  IA8SIT1 I. LE. EPS! IT 1 = 0.0 
BII, J»=T1 

T l=d INV  II, J)  - T*EINVIK,JI 
IF  I A BS (Til .L  E.EPS I) T 1 = 0 • C 
ISO  81 NV II,JI=T1 
160  CONTINUE 


INVEO  03  A 
INVEO  C3 5 
INVE0C36 
INVEO C 37 
I NVEO  C 36 
INVE0G39 
INVEO  G40 
INVE0C41 
I NVEO  042 
I NVEO  0 4 3 
I NVEO  GG  4 
INVEO  04  E 
INVEO  046 
INVEO  C47 
INVE0G46 
INVE  0 C 49 
INVE0C5G 
INVE0C51 
INVE0C52 
INVEO  L5  3 


170  CONTINUE 

C BINV  CONTAINS  THE  INVERSE  OF  8,  UP  TO  A PERMUTATION  OF  THE  RONS. 
00160L=1,H7 
I*  IS (LI 


INVEO  054 
INVE0055 
INVE005E 
INVE0057 
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EXHIBIT  4 (Continued) 


•I41I«PJ(LI  INVEOOM 

OOUOJ*1»HF  INVE0I59 

III  Oil. J)*CINV  (L>J)  INVEO  060 

C ■ NOH  CONTAINS  THE  INVERSE  ANO  SI  CONTAINS  THE  SOLUTION.  INVE0G61 

RETURN  INVEO 062 

1000  FORHAT (69H0HATRIX  TO  SE  INVERTEO  IS  ILL -CONDITIONED,  PERHAPS  SIN6UINVE0 063 

1LAR.I  INVEO  066 

1001  FCRHAT ( 12H  ••♦••INVERT!  INVE0C65 

ENO  ..  INVEO 066 
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EXHIBIT  ^ (Continued) 


SUBROUTINE  OBJ1  <NZ,NP, IK.IA, IS , IBV ,TC ,BOR IG, RHS ,C1 , ND1 , N02 ,N03, 

ObJIOOO  1 

1 N04, NOS  1 

OB J 100  0 2 

C COMPUTE  AND  STORE  TEE  PHASE  1 OBJECTIVE  FUNCTION. 

OBJIOOO  3 

COHHON/Pl/N,M,ITYPt,NsTRAT,NO0RLl  ,NBVRL 1 , NTITE1 , NCORL 2. NB VRL2, 

OB  J 1 0 0 0 4 

1 NTITE2,HXL1ST,LI'T0P, it  APE, IF  8,  EXIT CR  ,MBINV ,IOUIPT, 

08 J 1 00  C 5 

2 ITRACt , MSTAKT»TIMEl ,TOL 1 , T0L2 ,PCBUB , ALPEA ( 1 0 1 

OdJlOCOE 

C0HM0N/P2/EPSI ,EPSIM, BI GN ,3£GTH,M 1 ,M2 , M3 , H4 ,N1, MP1 , HP2, NM3 , NM1M2, 

OBJ10G07 

1 NM1M3,N1P2,NP1,NSUM,NTC,H10 

OB Jl  00 0 S 

DIMENSION  HI (NU1) ,NP(N01) ,IR(N02) ,IA(N02I ,IS(N04I ,IOV <N04) 

oajioccy 

DIMENSION  TC<N03>  , BORIC  (N04  1 , RHS  1 N04  >,  C 1 (N05 » 

oajiocic 

IF  I ITRACE.CE.lt  WRITE  16, 10 00 1 

08 J 1 3 011 

00100K=1,M 

OBJIOC 12 

IOC 

IS  (K  MO 

OBJIOC 1 3 

00 11  OK- 1 , M 

03 J 100 1 4 

IFUaV(K)  .LE.NH1H3I  GOTO  lie 

Ob  J 10  015 

KK'IB V ( K) *NM3 

0BJ1SC1E 

I S (KKM 1 

OBJ10C17 

110 

CONTINUE 

OBJlOOld 

DO130J=l , N 

00 J 1 0 C 1 9 

NPQI NT  = NP { J 1 

oojioce: 

N2EROS=N2 (J) 

O9J10C21 

qi=o.o 

OBJ10022 

DO120K=l,N2EROS 

0 B J 1 0 l 2 3 

NPOINT=NPOINT*l 

OB  J 10  C 2 4 

KK  = I R ( NPOIN  I ) 

OBJ  ICO 2 5 

IF (IS(KK) . EQ • C ) C0T012C 

OOJ10C26 

INOt  X = I A 1 NPC INT ) 

OBJ  1312  7 

Q1=Q1«TC< INDEX! 

03J13C2a 

120 

CONT INUE 

OB J 10  0 29 

130 

Cl (JM-U1 

OBJ  1 0 0 3 C 

TF  IM3.EQ. 0)0010150 

03 J 1 0 C 3 1 

ICK=M1»M2 

OBJ10C32 

0014  0 J=NP1, NH3 

OBJIOC  33 

KK=KK*1 

OBJIOO  34 

Cl IJt-U.O 

OdJIOC  35 

IF  (IS  (KKI  .EQ  .0 1 00  10140 

OBJIOC  36 

Cl  < J Ml.  3 

OBJIOO 37 

140 

CONTINUE 

OBJIOC  38 

150 

BB-0 .0 

OBJIOC  39 

CC=0  .0 

OBJ13C40 

LIMIT=M1+1 

OOJ10C41 

OQ16  0M.IEI  T ,Ei 

0 BJ 10  0 42 

IF(IS(I).EQ.C)GOTO160 

OBJIOC  4 3 

BB=88-RHS (11 

08J13C44 

CG=CC-BORIG< I) 

OBJ  10  04  5 

160 

CONTINUE 

OB  Jl 0 C 4 b 

RHS ( MP2  ■ =B8 

08 J 13  C 4 7 

BORIG(MP2)=CC 

OB J 10  C 48 

RETURN 

OQJ10C49 

1000 

FORMAIUOH  **»**0EJ1I 

OBJ10050 

ENO 

OBJ 10051 
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EXHIBIT  4 (Continued) 


SUBROUTINE  RST ART  (IF, INUSE , IB V,NBV, IUPPER. INS , F ,81 ,BN,B, FMS, 

1 NI,NF,N04,N05,  KO10,NOMS2,NOHS3,IENTRY> 

C PREPARE  A RESTART  TAPE  CR  BEGIN  A JOB  FROM  A PREVIOUSLY  PREPARED 
C RESTART  TAPE. 

COMMON/P1/N, M,ITYPE,NSTRAT,N00RL1,N0VRL1,NTITE1,N00RL2,NBVRL2, 

1 NUTE2,MXL1ST,LIST0P,  IT  Ap E , IFB , FX  IT  ER  ,M8 INV  , IOU  TP T , 

2 1 1 RACE, FS TART, TIM El ,TOLl, TOL 2 ,PCB L3 , ALP  FA ( 1 0 ) 

COMHQN/P2 /EPSl,EPSIM,BIGN,BtGTM,Ml,M2»H3,M4  , NI, HP1, NP2 , NM  3 , NM1M2 , 

1 NH1M3,N1P2, NP 1 ,NSUH,NTC,H10 

C0NM0N/P3/N0CN0T, UNOT , IBUdOP, LP FA  EE , NOORUL , N8 VRUL, NTI GHT , NL 1ST , 

1 NlISTS.NFEAS.LSTMX, ITRT  tT ,ITRMAX,BLB, NBRNOO, P OR NOD, 

2 NBRVAR, NUPOHN , XBRNOU .TSRNOO, NOOE, LNOOE , Z , BOUNOL , BCUNOU , 

3 TS1G, IFEAS,IBRVR1,IUPON1,XBRVR1,IBRVR2,IUPON2,X8RVR2, 

<*  L1C, NITER, NdINV,M7,  IPHA  SE  , NPHASE  , FM3H  7 , IA  LG  C,  IE  CJ 

C0MM0N/P4/SAVE,K3KAN,X1 

01  ME  NS  I ON  IF (NI) , INUSE (NO  10) , IdV(  )D4>  , NBV ( N05 ) , I UFPER ( N05  I , 

1 I MS ( NGM  S2 ) 

DIMENSION  F (NF)  ,d  I ( N04  » , 0N(  N05  ) , 6 (N  C4 , N C4  I , FMS  ( KDMS3) 

IF  (1TRACE.GE.1)MRITE(6,1CC2) 

IF (IENTRY.EU. 1) GOT  0130 
C bEGlN  A JOB  FROM  A RESTART  TAPE. 

MRITE (6, 10CO ) 

REMIND  4 
REMIND  7 
RE  MI  NO  0 
RE  Al)  ( 7 ) MIC, 

1 NOONOT.UNOT ,IBUBOP,LPHA  IE  ,NOORUL,NBVRUL  ,NTI GHT.NL I ST, 

2 NL1STS, NF  EAS.LSTMX, 1TRTCT ,ITRMAX,BLB, NBRNOO ,PBR NOD , 

3 NBRVAR,  NUPDHN.XBRNOO.TURNOO, NOOE, LNOOE, Z, BOUNOL .BCUNOU, 

4 TSIG, IFEAS, IdRVRl , IUPUN 1 , X8RV SI , IBRVR2, IU P0N2 ,XdR VR2, 

5 Ll.O.NITEk.NdINV  ,M7,  IP  F A EE  ,NPH  ASE , NM3M  7 , 1 ALGO,  IE  C J , 

6 SAVE, KORAN, XI 
IF  (NLIST.EQ. 0 > GOT 0110 
00 10  0 J=  1,  NL  I ST 

READ  (8)  10  , (IKS  (1  > ,1=1  ,K0MS2)  , (FHS II > , 1 = 1, N CM  S3) 

CALL  MR  IT  MS  (2 , I MS , NOM S2 , 1 0 ) 

CALL  HR1TMS  (3 , F MS , NOMS 3 , 10 ) 

100  CONTINUE 

110  IF  (2* (NODE/ 2) .NE.NO0E)GOTO120 

RE  AO (8)  ( I BV ( I > ,I=1,N04) , (NBV (I  ), 1=1 , N05 ) ,( IUPPER 1 1 ) ,1= 1 , NOS ) , 

1 (BI(I) , 1 = 1, NO 4)  , ( BN ( I ) , :=1,N0  5) , LL1 ,LL 2-LL3 , 

2 ((B(I,J) ,I=1,NU4) ,J=1,N04) 

MRITE (4)  (IBV(I)  ,1=1, N04  ) , (N E V ( I ) , 1= 1 , ND5 ) ,( IUPPER d ), 1 = 1 ,N05I , 

1 (Bid)  ,I  = 1,N04)  ,(0N  (I)  , 1=1, NOS)  ,LL1,LL2,LL3, 

2 ( IBII.J  1,1  = 1, N04)  ,J=1,NC4) 

120  RE AU ( 7)  (IF(I),I  = 1,NI),  (F(I) ,I  = 1,NF> 

REMINO  4 
REMIND  7 
REMINO  6 
RETURN 

C PREPARE  A RESTART  TAPE. 

130  NRITE(6,10G1) 

REMIND  4 
REMINO  9 
REMIND  10 
MRIT  E (9  > MIC, 

1 NOONO 1, UNOT, IBUBOP, LPH A SE.NOORUL.NBVRUL, NTIGHT.NL 1ST, 


RSTAOOC 1 
RSTA00Q2 
RSTA0003 
RS T AO  0 0 4 
RSTA0C05 
RS  TA  0 C 06 
RSTAOCO  7 
RSI AQ0U8 
RSTAOOC9 
RSTAOC 10 
RS1A0C11 
RS  T AO  L 1 2 
RSTA0C13 
RSTAOC 1 4 
RSTAOC 15 
RSTA9016 
RSTA0C17 
RSTA0C18 
RSTA0019 
RSTA0C2U 
RST  AO C 21 
RS  TAO  C 22 
RSTAOC  23 
RSTA0C24 
RSTA0C25 
RSTAOC  26 
RS  TAO  C 27 
RS  T A OC  23 
RSTAOC  29 
RST  AO  0 3 0 
RSTAOC 31 
RSTAOC  32 
RSTAOC  33 
RSTA0G34 
RSTA0035 
RSTAOC  3b 
RS1A0C37 
RSTAOC  38 
RSTAOC  39 
RST  AC  04  0 
RST  AO  0 4 1 
RSTA0C42 
RSTAOC 43 
RS  T AO  0 4 4 
R.ST  A0C45 
RST  AO  C 46 
RST  AO  0 4 7 
RSTAQC48 
RST  AC  C 4 9 
RSTAO  C 5 0 
RST  AO  05 1 
RSTA0C52 
RSTAOC  53 
RSTA0054 
RSTA0C55 
RSTA0C56 
RSTA0C57 
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EXHIBIT  4 (Continued) 


2 NLISTS, FF  EAS.LSTMX, ITRT  a, IT RMAX , BLB , NBRNOO , PBR NOC, 

3 NBRV AR, KUPOHN , X 8R  NOO  > TdRNOO,  NOOE , LNOOE , l , dOUNOL , d CUNOU , 

A TSIG, IFEAS, IdRVRl , IUPON1, XBRVR1 , IBRYR2 , IUPON2  .XBRVR2, 

5 L1C, NITER, NdINV ,M7 , IPH A IE , NPHASE, NH 3M 7, 1 ALGO, IEOJ, 

6 SAVE. KORAN, Xl 

WRIT  E (9)  (IF(I),I=1,NI >,  (F  ( I ) , I = 1 , NF ) 

IF  (NLIST.  CU  • C ) GOT  CISC 
0014010=1 .MXLIST 
IFdNUStUO) .EQ.O  >GOT0140 
CALL  README  ( 2 , IM i, NDMS2 , 10 ) 

CALL  Rfc ADMS  (3 , FM 5 , NOMS3 , 10 ) 

WRITE (131  1 0,(1  MS  (I) ,I=l,NOMS2> , (FHS(I) ,1  = 1, NON  S3) 

140  CONTINUE 

150  IF (2* (NOOE/ 2) .NE.NODEIGCTC160 

Rt AO (4)  UdV(I)  ,1=1, N04>,  (N  dtfd  1, 1 = 1, NOS)  , (IUPPERdl  ,I=1,N05I  , 

1 (Bl(l) , 1=1, N04) , ( ON (I ) , 1=1, N05) , LL1,LL2,LL3, 

2 ((6(1, J ), 1 = 1, N04I ,J=1,NC4) 

HRITE(IO)  (I8V(I) ,I=1,N04),  (NdV(I)  , 1 = 1, NOS ) , (IUPPER (I ) , 1= 1,K05) , 

1 (did), 1 = 1,  N04 ) , I iN  (1  ) , 1=1,ND5)  , LL  1 ,L  L 2 ,LL3  , 

2 ( (B(I,J),I  = 1,NU4) ,J=1  ,NC4) 
lbl  ENO  FILE  9 

ENO  FILE  10 
CALL  cXIT 
Rt  TURN 

1C0C  F OR  NAT(38FGt3  EG  INNING  THE  JOB  FROM  RESTART  TAPES.) 

1101  FORMAT (24HJ  FES  1 AR  T TAPES  PREPARED.) 

1GC2  FCRMAT(12f  **»**RSIART) 

ENO 


RSTA0C5S 
RSTA0C59 
RSTAOCbO 
RSTACCbl 
RS T A0  Cb  2 
RS  T AC  C b 3 
RSTAOCbO 
RSTAOCoS 
RSTAOCbb 
RS  T A3  C 07 
RSTA0CG6 
RS  T A 0 C b 9 
RSTACC7G 
RSTA3071 
RSTA0C72 
RSTAOC  73 
RST  AC  C 7 4 
RSTAOC  75 
RSTAOC  7b 
RSTAOl 77 
RS  T AO  C 78 
RSTA0C79 
RSTA0C6C 
RST AC  0 91 
RSTAOC  82 
RSTAOC  83 
RSTA3C84 
RSTAOC 85 
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EXHIBIT  4 (Continued) 


SUBROUTINE  SIMPLE  (NZ ,NP , IR, I*, IS.NV, IBW, NBV, IUPPER, TC, RMS ,C2,C1,  SIHP0C01 

1 8I,8N,U,PJ,BINY.XJ,V,XZ,8,N01,N02,ND3,N0G,ND5,  S1MP0C02 

2 NOB, NOT)  SI  HP  00  0 3 

C PRIMAL  ANO  dual  SIMPLEX  ALGORITHMS  FOR  SOLVING  THE  LP.  SIHPOOOG 

COMMON/ Pl/N.H, ITT fE , NSTR A T, NOORL 1 ,N8VRL 1 , NT ITE1 , NOORL 2 ,NB VRL2  , SIMPOC 05 

1 NTITE2.MXLIST.LISTOP,  IT  APE,  IF8.MXITER  ,HBI NV, IOUTPT,  SIMP0CQ6 

2 ITHACE, PSTART, TINE1, TOL1, T0L2  ,PC8UB  ,ALPHA(1C)  SIHP0007 

COMMON/ P2 /EPSIjEPSIH, BIGN ,6EG  TH  ,M  1 , M2, M3 , ML , N1 , MP1 , MP2 , NN3 . NM1M2 , SIMPQCQS 

1 NM1M3,N1P2,NP1,NSUM,NTC  ,M10  SIMP00U9 

COMMON/P3/NOONOT, LNOT ,1 BUBOP.L PHASE, NODRUL , NB VRUL, NTI GHT , NLI ST,  SIMP0C10 

1 NL ISTS, KFEAS,LSTMX,ITRT(T,ITRMAX,BLu,NBRNOO, PBRNOD,  S1MP0011 

2 N8KVAR , NUPOWN ,XBR NOO , T BRNOQ ,NOQE ,LNQOE ,Z , BOUNOL  .BCUNOU,  SIMP0C12 

3 TSIG.1FE AS, IBRVRi, IUPCN1, XBRVR1, IdRVRZ, IUPON2 ,XdRVR2,  SIMPOC 13 

G L10,NITER,NUINV,M7,IPHASE,NPHASE,NM3H7,IALGO,IECJ  SIMP0C1G 

DIMENSION  IS  (NOG)  , NV ( N06  > , I d V (NOG  ), N3 V I N05 ) , I LPPER ( N05I  SIMP0015 

DIMENSION  BI  (NOG)  , BN (NOS ) ,U (N06 I ,PJ (NOG ) , XJ (NCG I , V (NU6 ) ,XZ(N06) , SIMPOC 16 

1 B (NOG ,NCG)  SIMPOC 17 

IF(ITRACE.GE.l) WRIT £( 6, 10 22 ) SIHF001S 

IF  (IOUTPT. LE.DGOIOIH  SIMP0019 

IFdALGO.EQ.ZIGCTLiOO  SIMP0020 

WRITE (6,1000  > SIMP0021 

ZF(NOOE.N£.l)GOTOllO  SIMPQ022 

IF  ( IPHASE  .EQ.il  HR ITE (6, 10  Cl)  SIMP0  0 23 

IF  (IPHASE. EQ.2)HR1TE(6,10C2)NPHASE  SIMP002G 

GOTO  1 10  SIMPOC  25 

100  HRITE(6, 1003)  SIMP0C26 

110  ITER=Q  SIMPQC27 

C INCREMENT  THE  ITERATION  COUNTER.  REINVERT  THE  BASIS  MATRIX  IF  SIMP0C29 

C NECESSARY.  SIMPQG3L 

120  IT ER=IT  cR»l  SIMP3032 

NITER=NITER*1  SIMP0C33 

NBINV-NBINV  «1  SIMP0C3G 

IF (ITER.GT. MX  ITER  IGOTO630  SIMP0  0 35 

IF( FBlNV.NE.MdlNV IG0T016G  SIMPOC 36 

C REINVERT  THE  BASIS  MATRIX  EVERY  MB INV  ITERATIONS.  SIMP0G37 

NBINV=0  SIMP0C38 

IF (IOUTPT .GE. 2) HR  ITE (6, 10  CGI  NITER  S1MP0  039 

IF (IOUTPT. lE.G)GOT01GO  SIMPOCGO 

WRITE  (6,1005)  SIMP0GG1 

001301=1, M7  SIMP0GG2 

130  HRITE(6,10G6) IBV ( I)  ,(d(I,J) ,J=1,M7) ,81(1)  SIMP00G3 

1G0  C A >_L  BINVRT  (NZ, Nf,IR,IA, IS, IBV, NOV, IUPPER, TC.RHS.C2, Cl, BI.U.PJ,  SIMPOOGG 

1 BINV ,B,N01,NC2,ND3,N (G ,N05 ,N06,N07 I SIMP0CG5 

IF (IOUTPT  .LE.G)G0T016J  SIMP0GG6 

WRITE(6,1C0 5)  SIMP0CG7 

001501=1, M7  SIMP0CG6 

150  HKITE(6,1006)IBV(I)  , (B  ( I , «il  ,J=1,M7),BI(I)  SIMP0GG9 

16G  GOTO (17C , 300 > . I AL GO  SIMPOC50 

c primal  algorithm.  sihpoc52 

C PRICE-OUT  THE  N0N-6GSIC  VARIABLES.  THf  ENTERIFG  VARIABLE  IS  THE  FIRST  SIMPiJC53 
C ONE  EHCOUNTEREO  HAVING  NEGATIVE  REUUC  (0  COST.  S I MP0C5 G 

c. ....... .........  ...................... .........„...«.................SIrp0Q55 

170  00200IPUS=1,L10  SIMPOC 5 6 

KINO=N8V( IPOS)  SI M°0057 


T 
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EXHIBIT  4 (Continued) 


001801*1, N7 
180  PJ(II*0.0 

CALL  GETCOL  (HZ  ,NP  , IR  . I A , IS,  TC  .KKI.CI  ,C1  ,P  Jt«W  .*M  til  >W*  ,M»  , 
1 KINO.NZEROSI 

Q1*0  . 

00190J1-1  ,NZ  EROS 
J-IS(Jl) 

190  qi>cu  ♦ a(Hio,j)«pj(j) 

Q1*Q1  ♦ BIN1C,HP1)*PJ IMP  1 ) 

IF (I PHASE .£U.2)Q1*Q1  ♦ 8 (M10 , MPZI *PJ(NP2 ) 

C Ql  IS  THE  REOUCEO  COST  FOR  VARIABLE  J*KINO. 

IF(IUPPER(IP0S»  .EC.  1»Q1=-Q1 
IF (Q1.LT. EPS  IMM00C . ) GOT 0240 
200  CONTINUE 

C FOR  ALL  NON-BASIC  VARIABLES,  THE  REDUCED  COST  IS  NON-NEGATIVE. 

IF (I  PHASE .NE. 2) GO 10640 
IF  INPHASE .EQ.2I G0 10640 

C CHECK  IF  ANT  ARTIFICIALS  REMAIN  IN  THE  BASIS. 

IKOEX=0 
00210  1-1, HT 
J*IdV(I» 

IF ( J.GT . NH1H3  .ANO.  J .LE.N1) INOEX*l 
210  CONTINUE 

IF  (81 (HP2I . CE.EPSIH*100  0. JGOTO220 
IF  (INOEX.EQ  .DGCTOSBC 
C PHASE  1 TERMINATES.  ENTER  PHASE  2. 

220  IF (I0UTPT.GE.2>NRITE(6,1CC7»NITER 
Ml 0=M10- 1 

IF (INDEX. EQ.l) GOT C230 

C THERE  ARE  NO  ARTIFICIALS  IN  THE  BASIS.  DELETE  THE  PHASE  1 OBJECTIVE 
C FUNCTION  FROM  THE  PROERAM. 

H7=HPl 
IPHASE1 1 
NPHASExO 
NM3N7*N*M3*M7 
GOTO  120 

C THERE  ARE  ARTIFICIALS  IN  THE  BASIS.  MAINTAIN  THE  PHASE  1 OBJECTIVE 
C FUNCTION  AS  A CONSTRAINT. 

230  NPHASE=2 
G0T012Q 


PRIMAL  ALGORITHM. 

SELECT  THE  LEAVING  EASIC  VARIABLE. 


COMPUTE  THE  UPO'.EO  COLUMN,  XJ  * B-INVERSE  * PJ. 

240  UO260I=l,M7 
Q1*0.0 

00250 Jl=l ,NZEROS 
J»IS  (Jll 

250  Ql-Ql  ♦ B ( I , Jl * FJ ( J) 

Q1*U1  ♦ 6(1  ,NP1I»PJ(MP1» 

IF ( I PHASE .EQ • 21 Ql-Ql  ♦ fl ( I , HP  Z \ *P  J ( MP2 1 
260  X J (I ) =Q 1 

C COMPUTE  THE  MINIMUM  OVER  XJdl.GT.O  OF  THE  BASIC  VARIABLE  VALUES 
C DIVIDED  BT  XJ(I>. 

XPIV*8I6N 
002801*1, H7 


SIMPOO 58 
SIMPI059 
SIMP9060 
SIHPB0G1 
SIHP0062 
SI  MP3  0 6 3 
SI  MP3  0 6 4 
SIHP0065 
SIHP0066 
SIMPO  067 
SIHP0066 
SIMP0069 
SIHP0070 
SIMPO  071 
SIMPO 072 
SIMPOO  73 
SIHP0074 
SIMPOO  75 
SIMPOO  76 
SIMPOO 7 7 
SIMP007S 
SIMP0079 
SIMPO 060 
SIMPO  061 
SIMPOO 62 
SIHP0063 
SIMP0084 
SIMPOO  65 
SIMP0086 
SIMP0C67 
SIMP0086 
SIMP0089 
SIHP0C90 
SIHP0091 
SIMP0C92 
SIMP3093 
SIMF0094 
SIMP0C95 
SIMP0C96 
SIMP0097 
*SI MFO  G 98 
SIMPOO  99 
SIMPO 100 
•SIMP0101 
SIHP0102 
SIHP010  3 
SINP0104 
SIMP0105 
SIMPO 106 
SIMP0107 
SIMPO 108 
SIHP0109 
SIMPO 110 
SIMP0111 
SIMPS  112 
SIMP0113 
SIMPS  114 
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EXHIBIT  4 (Continued) 


ifu.eq.mpiigoto280 

Q1*XJ(I) 

ZF (IUPPER (IPOS ) . £Q.  1) Ql*-Ql 
C Q1  IS  XJ(I>. 

IF(Ql.LT.EPSI) GOTO270 
Q2=3I  Cl) 

C Q2  IS  T HE  BASIC  VARIABLE  VALUE. 

IF(02/Ql.GE.XPIV)GUT028j 

KPIV*I 

C KPIV  INDICATES  THE  LEAVING  VARIABLE. 

XPIV=Q2/Q1 

ITHIA=1 

C ENTERING  VARIABLE  OOES  NOT  FORCE  ANT  VARIABLE  TO  ITS  UPPER  BOUND 
C (ITHIA  = 1). 

G0T0283 
270  Q1=-Q1 

IF(Ql.LT.EPSI) GOTO280 

U=IBV(II 

Q2=U( I 11-61  (I > 

IF(Q2/Ql.GE.XPIV) GOTO 283 
KPI V=I 
XPIV=Q2/Q1 
ITHIA*  2 

C ENTERING  VARIABLE  FORCES  LEAVING  VARIABLE  TO  ITS  UPPER  BOUNO 
C UTHIA  = 2). 

280  CONTINUE 

IF (U( KIND) . GE.XPIVIGOTO290 
ITHIA=3 

C ENTERING  VARIABLE  ENTERS  AT  ITS  UPPER  BOUNO  (ITHIA  * 3> . 

XPIV=U (KIND) 

290  IF(XPIV.G£.  BIGMGOTO&li, 

I BVK=  I BV  ( KP I V ) 

GOT 0440 


DUAL  SIMPLEX  ALGORITHM. 

SELECT  THE  LEAVING  BASIC  VARIABLE. 


3C0  IF(IBU80P.EQ.1)G0T031J 

C TEST  THE  OBJECTIVE  VALUE  AGAINST  THE  BEST  UPPER  BOUNO. 

IF (-BI  (MPI) ♦TSIG.GE.(l.-TOLl) * UNO T ) G0T0623 
C COMPUTE  THE  MINIMUM  OF  THE  RIGHT-HANO -SIDES. 

310  BMI N=  B IGN 
KPIV=„ 

003201*1, M7 
IF(I.EQ.MPl)G0T032. 

1F(BI(I).GE.BM1N)GUT0323 
BMI  N=  81  (I) 

KPI V* I 

320  CONTINUE 
JPIV=Q 
003301=1, H7 
IF(I.EQ.MP1IGOT0330 
Il*I8V  (I) 

IF(U(I1)-0I(I) .GE.BMIN) GOTO330 
BMI N*U ( II ) -81 ( I) 

JPIV=I 

330  CONTINUE 


SIMP0U5 

SIMP J 116 
SIMP0117 
SI  HP  0 11 8 
SIHP0U9 
SIMPO 123 
SIMP  0121 
SIMPO 122 
SIMPO 12  3 
SIMPO 124 
SIMPO 125 
SIMPO 126 
SIMPO 127 
SIMPO 128 
SIMP0129 
SIMP0130 
SI  HP  0 131 
SIMPO 132 
S I HP  0 1 3 3 
SIMPO 134 
SIMP0135 
SIMPO 136 
SIMPO 137 
SIMPO 139 
SIMPO 139 
SIMPul4. 
SIMP  0 141 
SI MP  0 142 
SIMP  0143 
SIMPO 144 
SIHP0145 
SIMP  G 146 
SI HP 0 147 
SIMP.  148 
SIMP0149 
SIMPO 150 
SIMP0151 
SIMP. 152 
SIMP 015 3 
SIMP  0154 
SIMPO 15  5 
SIMPO 15  6 
SIMP 015  7 
SIHPQ158 
SIMPO 159 
SIMPO 160 
SIMPO 161 
SIMP- 162 
SIHPQ163 
SIMPO 164 
SIMPC165 
SIMP. 166 
SIMP  016  7 
SIMPO 166 
SIMPC169 


SIMP. 17. 
SIMPO 171 
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EXHIBIT  4 (Continued) 


C IF  THIS  MINIMUM  IS  NONNEGATIVE,  ME  ARE  AT  THE  OPTIMUM. 

IF  I8HIN .GE. EPSIM*10C0 •) GOT0640 
ITHI A=1 

IF( JPIV.EC. 01GOTO340 

I T HI  A=Z 

KPIV=JPIV 

340  I8VK=IBVCKPI V) 

c*»*«**.. .•.********•*•*******•*****•*••*•••••*••**••*•**••*•••••****• 

C DUAL  SIMPLEX  ALGORITHM. 

C SELECT  THE  ENTERING  VARIABLE. 



C COMPUTE  THE  MINIMUM  OVER  XJtll.LT.O  OF  THE  OUAL  VARIABLE  VALUES 
C OIVIOEO  8Y  -XJIII. 

XPIV*bIGN 

KINO-O 

00400 JPOS*l  .Lie 
JIN0=N8V (JPOSI 
003501=1. H7 
350  PJ(I)=0.0 

CALL  GETCOL  (NZ ,NP, IR, I A, IS , TC ,RHS,C2,C1,PJ ,N01 ,MC2 ,ND3,N04  ,N05 , 
1 JINO.NZEROS) 

Q1=0 .0 

00360 J1=1,N ZEROS 
J=ISCJ1) 

360  Ql=Qi  ♦ 8IKPIV, J) *PJ(J> 

Q1  = Q1  ♦ BKPIV.MPl)  •PJIHPII 
1FIIPHASE.EU.2)Q1=Q1  ♦ 0 CKPIV, MP2 1*PJ (MP2» 

If (I7MIA.EQ.2)GOTO370 

IF  (IUPF  ERT JPOSI  .EQ.fl»(Ua»Ql 

GOTO380 

370  IFIIUPPER(JPOS) .EQ.  1IQ1*-Q1 
38C  IF  CQ1  .LE.EPSDGOT04CO 
C Q1  IS  -XJCII. 

Q2=C.O 

00390J1=1 .N ZEROS 
J--ISIJII 

390  L2=Q2  ♦ 8<MPli JI*PJ(J) 

Q2=Q2  ♦ B(NP1»MP1I*PJ(HP1I 
1FIIPHASE.EQ. 2)02=02  ♦ 0IMP1.MP21 «PJ(MP2> 

IF  1 1 UPPER (JPOSI .EQ.1I02*- C2 
C 02  IS  THE  DUAL  VARIABLE  VALUE. 

IF (Q2/Q1.GE. XPIVIGOTO400 
XPIV=Q2/01 

K1N0=JIN0 
IPOS=JPOS 
400  CONTINUE 

C IF  THERE  IS  NO  PIVOT  ELEMENT.  THE  PRIMAL  PROGRAM  IS  INFEASIBLE 
C (THE  DUAL  PROGRAM  IS  UN80UN0ECI . 

IFCKINO.EQ.O ) GOTO 58 C 

C COMPUTE  THE  UPDATED  C tLUMN,  XJ  = 8-INVERSE  * PJ. 

004101=1, P7 
410  PJIII=0.0 

CALL  GETCOL  (NZ.NP, IR.IA.1S.TC.RHS, C2.C1.PJ.M01.N02.M03.N04.ND5, 
1 KIND .NZEROS) 

004301*1, M7 

Q1=0 .0 

00420 Jl=l ,NZER0S 


SIHP0172 
SIMP0173 
SIMP0174 
SIMP0175 
SIMP0176 
SIMP0177 
SIMP0178 
►SIMP0179 
SIMPO 18 i 
S1MP0181 
'SIMP0182 
SIMPO 183 
SIMP0184 
SIMP0185 
SIMPO 18 6 
SIMP0187 
SIMP0188 
SIMPO 189 
SIMPO 190 
SINP0191 
SIMPO 192 
SIMP0193 
SIMP0194 
SIMP0195 
SIMPO 196 
SIMPO 197 
SIMP0198 
SIMPO 199 
SIMPO  20  0 
SIMPO 201 
SIMP0202 
SIMPO 203 
SIMP0204 
SIMP0205 
SIMP0206 
SIMP0207 
SIHP0208 
SIMPO  20  9 
SIMPO  21G 
SIMPO 211 
SIMPQ212 
SIMPO  213 
SIMP0214 
SIMP0215 
SIMPO  21 6 
SIMP0217 
SIMPO  218 
SIMP0219 
SIMPO  220 
SIMPO 221 
SIMP0222 
SIMP0223 
SIMP0224 
SIMP0225 
SIMP0226 
SIMP0227 
SIMP0228 
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o a on 


EXHIBIT  4 (Continued) 


J*IS(J1I 

A20  Q1*Q1  ♦ B (I » Jl  *PJ  ( Jl 

Q1=0 1 ♦ B(I,MP1I*PJ (MP1I 
IF (1PHASE .EU. 2 1 Ui  = Ql  ♦ B(1 ,MP2I *PJ (HP21 
A30  XJIII=ai 


PRIMAL  AMI)  OUAL  SIMPLEX  ALGORITHMS. 

PIVOT  THE  ENTERING  ANO  LEAVING  VARIABLES. 


A AO  IF(IOUTPT.EQ.5H.RITEI6,lOC8INITER,KlNOtIBVK,ITHIA 
INOEX-O 

IF  I IUPPER ( I FOS)  .EC.  1IG0T0A83 
GOTO  (510.A7  0 .A50I  , ITHIA 
A50  IUPPERd  PCS  1 = 1 
dN (IPOS )= L (KINO) 

DOAbOI=l,M7 

AbO  81(11=81(11  - U(KINC) *XJ(I) 

GOTO l2Q 

A 7 0 BI  (KP1V)  = BI(KPIV)  - U(IBVKI 
lUPPERdPCS  )=1 
BN (IPOS I =U(IBVKI 
G0T051C 

ABO  lUPPERdPCS  1=0 
BN (IPOS )=0. C 

C CHANGE  THE  RIGHT-HANO-SIDE  AFTER  THE  FIVOT. 

I NOE  X=1 

GOTO (51 0 • 170 , A9CI .ITHIA 
A90  005001=1, M7 

500  BI (1 1=81 (I)  ♦ U(KINO) *XJ(I> 

GOT012C 

510  T = 1 ./XJ  (KPI V ) 

BI  (KPI  V I = El  (KPI  VI  *T 
0052  0K= 1 , M7 

520  B ( KP IV . Kl  =3  (KPI  V»  H*T 
005A  0J= 1 , M7 
IF (J.EQ.KPIVIGOTOSAO 
T=XJ{ J) 

IF (ABS ( T I .LE .LPSI I GOTO5A0 
T 1=31 (J I - T*3I (KFIVI 
IF (ABS(ril.LE.EFSI)T 1=0.0 
81 (JI=T 1 
00530<=1,M7 

Tl=3( J, Kl  - T*B(KPIV,KI 
IF(A3S(T1I.LE.EPSIIT1=0.0 
530  B(J,KI=T1 
5 A 0 CONTINUE 

IF  (INOEX.  E;('.  Cl  GOT 0550 
BI (KPIV) =01 (KPIVI  ♦ U(KIN0I 
C UPDATE  THE  NBV  ANO  IOV  ARRAYS. 

550  1= IOV (KPIVI 

I0VIKPI VI=NOV(IPOSI 

IFd.GT  .NP1M3  .ANO.  I .LE.  M IG0T056C 

IF (I  ALGO. EQ. 2 .ANO.  I .EQ. N1P2I GOTO560 

NB V( IPOSI =1 

GOTO120 

560  NBV(IPOS)=N3V(LlO I 

IUPPER (IPCSI *IUPPER  (L10 1 


SIMP0229 
SIMP0230 
SIMP0231 
SIMP0232 
SIMP0233 
SIMP023A 
SIMP0235 
SIMP0236 
■SIMP0237 
SIMP0238 
SIMP0239 
SINP02AD 
SIMP02A1 
SI MPO  2a2 
SIMP02A3 
SIMP02AA 
SIMP02A5 
SIMP32AE 
SIMP02A7 
SIMPD2AB 
SIMP02A9 
S I MPO 250 
SIMP0251 
SIMP9252 
SI MPO  253 
SI MPO  25 A 
SIMP3255 
SI MPO  25 1 
SIMP025  7 
SIMP0258 
SIMP3259 
SI MPO  260 
SI  MP3  261 
SIMP0262 
SIMP0263 
SIMP026A 
SIHP0265 
SI MPO  26  6 
SIMP0267 
S I MPO  26  6 
SI MPO  269 
SI MPO  270 
SI MPO 271 
SI MPO  272 
SI MPO  27  3 
SI MPO  27  a 
SIMPL275 
SIMP0276 
S I MPO  2 7 7 
SIMP0278 
SIMP0279 
SIMFO 28 C 
SIMPO  281 
SIMP0282 
SI  MP3  28 3 
SIMP028 A 
SINP828S 


124 


nop 


EXHIBIT  4 (Continued) 


BN(IPOS)*BN(L10 ) 

L10*L10-1 

IF (NPHASE.EQ.il GOT0120 

005/01*1. H7 

J=IdV(XI 

IF (J.GT.NH1H3  .ANO.  J .LE. N1 I GOTO120 
570  CONTINUE 

C 1 FERE  ARE  NO  ARTIFICIALS  IN  THE  BASIS.  OELETE  THE  PHASE  1 OBJECTIVE 
C FUNCTION  FROM  THE  PROGRAM. 

N7=NP1 
IPHASfc* 1 
NPHAS£= 0 
NH3M7=N*M3*M7 
GOTO120 


FINAL  OUTPUT. 


500  IFIIOUTPT .EQ.OIGOTOEOO 
HRIT  E 16. 1009  I 
IF (10UTPT.LE.2) GO  10600 
IF (I ALGO. EQ. II GCTO590 
WRITE  16, 10 10 IIBVKjUMIN 
590  MRITE(6,1011l(iaV(II,I=l,H7l 
HRIT  E (6,101211  Bid  I ,1*1, M7) 
600  IEOJ*l 
GO  TO 640 

610  HRITE 16,1013) 

NRITE(6,1014IKINO 

HRITE (6, 10 11 IIIBV (I), 1=1,77) 

HRITE (6, 101 5 1 (XJ(I),I=1,M7I 

HRITE (6, 10 12  I (BI(I>,I=1,M7) 

1E0J=2 

GOTO640 

620  IF(IOUTPT.NE.C)HRITE(6,1016) 
IEOJ=3 
GOTO640 

630  HRIT E (6 , 101 7) 

IEO J=4 

640  006501=1, N1P2 
650  XZ(I>=0.0 

006601=1, NH3H7 
NV(I)=0 
660  V(II=0.0 

OO680K=l,H7 
I=IBV (K) 

NV  (I I = 1 

IF ( K.EQ.HP1) GOTO670 
Will = 31 (K) 

XZ (I  I =81 < K) 

60T0600 

670  V(II=-ai(KI 
XZ  (I  l = -dl  (K) 

680  CONTINUE 
Z=~B I IHP1 ) 

IF (I  OUT PT .LE.3) GOTO710 
00700K*1,H7 
00690I=K, NM3M7 


SIMP02B6 
SINP0287 
SIMP0288 
SIMP0289 
SIHPO  29 G 
SIHF0291 
SIMP0292 
SIHP929J 
SIMP0294 
S1HP0295 
SIHPO  29  6 
SIHP0297 
SIHPO  298 
SIMP0299 
SIHPO  300 
SIMF0301 
SIHPO 302 
SIHPO  30  3 
SIMP0334 
SIHPO  30  5 
SIHPQ306 
SIHPO 30  7 
SIHP030  8 
SIHP0309 
SIHPO 31C 
SIMP0311 
SIHPO  312 
SIHPC313 
SIHPO  314 
SIHP0315 
SIHPO  316 
SIHPO 31 7 
SIHP0318 
SIHPO 319 
SIHPO  320 
SIHPO  321 
SIHPO 322 
SIHPO 32 3 
SIHPO  324 
SIKP0325 
SIHPO 326 
SIHPO 327 
SIMP0328 
SIHP0329 
SIHPO  330 
SIHPO 331 
SIHPO 332 
SIHP0333 
SIHP0334 
SIHP0335 
SIHP0336 
SIHP0337 
SIHP03J8 
SIMP0339 
SIHPO  340 
SIMP0341 
SIHPO 342 
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EXHIBIT  4 (Continued) 


IFCNVCI1.EQ.O)GOT0690 
IFU.EQ.KIGOTO700 
NV(K)=NV  III 
V(K)=V(l) 

NV (I >=0 
G0T07QQ 
690  CONTINUE 
700  CONTINUE 

WRITE (6  , 1018 ) 

WRITE (6,1019)  (NWCM  , V «K)  , K=  t,M7) 

710  CONTINUE 

007201-1, NM3M7 
NV (1 1=0 
720  V(II=0.0 
KK=0 

00730K=1, L13 

IF  C IUPPER  CK)  . fcCl.O  1G01  0730 

KK=KK*i 

IxNdWCK) 

NV (I > =1 
V(I)*dN(K> 

X2(I>=BN(K> 

730  CONTINUE 

lF(IOUTPT.LE.3)GOTO780 

IFCKK.EU.C1G0T076C 

00750K=1,KK 

DO 740 I* K, NH3H7 

IFCNtf CII.EQ. 01GOTO790 

IFCI.EQ  .K)  GO  TO  750 

NV(K)=NV( I) 

vcx»*vm 

NV  Cl  1 = 0 
GOTO750 
740  CONTINUE 
750  CONTINUE 

NRITEC6.1C20  1 

WRITE (6,10191 (NVCK),VCK)«K*1,KK) 

760  IF  CIOUTPT .LE.4)GOTO780 
WRITEC6, 10051 
007701=1, M7 

770  MRITE  16,1006 1 16W Cl 1 ,CdC I, Jl , J=l, M i| ,81 (II 
780  IF CIOUTPT ,GE, 2) MRITEC6, 1C 211  ITER, NITER 
ITRTOT* ITRTOT  ♦ ITER 
IF (NITER. GT, ITRMAX) IT  RNAX*NITER 
RETURN 

1000  FORMAT (17HGPRIMAL  A LG  OR  I T KM ) 

1C01  FORMAT ( 17H  ONE  PHASE  METHOOI 

1032  FORMAT (47H  THO  PH<SE  METHOD  - BEGIN  COMPUTATIONS  IN  PHASEtI2> 

1C03  FORMAT C23HQOUAL  SIMPLEX  ALGORITHM) 

ltG4  FORMAT (32 HO  BAS IS  REINVERTEO  OK  ITERATION  =,I5) 

1005  F ORH AT (48 HO  BASIC  VARIABLES/BASIS  INVERSE/RIGHT-HANO-SIOE  =1 

1006  FORM  AT (1H0, 15, 6E1£.6/(6X,6E 15.61) 

1C67  FORMAT C 27H  ENTER  FHASE  2 ON  ITERATION, 15) 

1008  F0RMAT(1X,I5,21H.  ENTERING  VARIABLE  =,IS,20H,  LEAVING  VARIABLE  *, 

1 I5.16H,  THETA  = THETAC, II,  1H) ) 

1009  FORMAT (34P0THE  FRIMAL  PROGRAM  IS  INFEASIBLE.) 

1010  FORMAT (20H0LEAVING  VARIABLE  >,15/ 


SINPI343 
SIMP0344 
SIMP0345 
SIMP0346 
SIMP0347 
SIMP0348 
SINP0349 
SIMPO 350 
SIMP0351 
SIMPO 352 
SIMP0353 
SIMP0354 
SIMP0355 
SIMPO 356 
SIMP0357 
SIMP0358 
SIMP0359 
SIMPO  260 
SIMP0361 
SIMPO 362 
SIMPO  363 
SIMPO 364 
SIMP0365 
SIMP0366 
SIMPO 36 7 
SIMP0368 
SIMPO 369 
SIMPO 370 
SIMP0371 
SIMPO 372 
SIMP0373 
SIMP0374 
SIMPO 37 5 
SIMP0376 
SIMPO 37 7 
SIMP037S 
SIMP0379 
SIMPO 380 
SIMPO 381 
SIMPO 382 
SIMP0383 
SIMPO 384 
SIMP038S 
SIMP0386 
SIMPO 38 7 
SIMPO 388 
SIMP0389 
SIMPO 390 
SIMPO 391 
SIMPO 392 
SIMP0393 
SIMPO 394 
SIMP0395 
SIMP0396 
SIHP0397 
SIMP039B 
SIMP0399 
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EXHIBIT  4 (Continued) 


1 20HORIGHT-HANO-SIOE  *,E1«.6I  SINPOAOO 

1011  FORMATC20H0BASIC  VARIABLES  »,16I5/C20X,  1615))  SIMPOAOi 

1012  FORMAT  (20 FO RIGHT- HANO-SI 0£  * ,6E  15 .6/  C 2C  X , EE15 . 6>)  SINP0A02 

1013  FORMAT ( A3HQ  THE  PRIMAL  PROCRAM  HAS  UNBOUNOEO  SOLUTION.)  SIMP0A03 

1010  FORMAT  (2CH3EMERIFG  VARIAELE  *,I5)  SIMPOAOA 

1015  FORMAT C20H0LPOATEU  COLUMN  =, EE  15 .6/ 1 2GX.6E 15 .6) ) SIMP0A05 

1016  FORMAT  I A5M0 THE  OUAL  VALUE  EXCEEDS  THE  BEST  UPPER  BOUNO.)  SIMP0A06 

1017  FORMAT (55H0  THE  MAXIMUM  NUMBER  OF  LP  ITERATIONS  HAS  dEEN  E XCEEOEO. ISIMP0A07 

1010  FORMAT (16H0BASIC  VARIABLES)  SIHPOAO* 

1019  FORMATI17HO VARI A9LE/VALUE  * , 5 (15 , E15.6)/ I 17X, 5 t I5.E15.6) ) ) SIMP0A09 

1020  FORMAT (35H0 NON-BA i IC  VARIABLES  AT  UPPER  BOUND)  SIMP0A10 

1021  FORMAT (A3HGNUM8ER  OF  lP  ITERATIONS  THIS  COMPUTATION  =,I5,  SIMPO  All 

1 1AH.  CUMULATIVE  »,I5)  S1MP0A12 

1022  FORMAT (12H  •••••SIMPLE)  SINP0A13 

ENO  SIMP0A1A 


EXHIBIT  4 (Continued) 


SUBROUTINE  SLOPES  (N2 ,NP, IR ,1 A , IS ,1 BV ,NBV .IUPPER , TC ,RHS,C2,Cl,P J, 
1 XJ,S0,S1 .B.NOl  ,N02,ND3,N0*.,N05  ,N03> 

C OETERHINE  THE  LEFT  ANC  RIGHT  SLOPES  AJSOCIA1EO  WITH  THE  OPT  INAL 
C SOLUTION  VALUE  AS  A FUNCTION  CF  A PARAMETER. 

COHHON/P1/N,H,ITYFE,NSTRAT,NOCRL1,NBVRL1,NTITE1  ,N00RL2 , NBV RL2 , 

1 NTITE2,MXLIST,LISTOP, lTAPE.IFB.MXITER  ,MBINV , IOUTPT  , 

2 I TRACE, HSTART,TIHE1,  TCLl, T0L2.PCBUB, ALPHA  till 
C0HN0N/P2/£PSI,EPSIH,BI&N,BEGIH,HI,H2,H3, H4 ,N1, HPl, MP2, NH3,NM1H2, 

1 NH1H3,N1P2,NP1, NSUM,NTC,N10 

C0HH0N/P3 /NODnO T,lNOT,IbUt30P,LPFA SE « NOORUL « NBVRUL  « N TIGHT • NLIST, 

1 NLISTS, NFEAS.LSTMX, I IRT CT , I TRHA X , BlB, N8RN0O .PBRNOO , 

2 NBRVAR, KUPDWN , XBRNOG , TB  FNOO t NOOE, LNOOE , Z, BOUNDL , BCUNOU, 

3 TSIG,IFEAS,IBKVR1,IUP0N1,XBRVR1,I6KVR2,IUPDN2,XBRVR2, 

4 L10, NITER, Ndl MV ,H7, I PHASE »NPH A SE , NH3H7, I ALGO, IE C J 
01  HE  NS I ON  I S <NU4 ) , I BV I NU4 ),N3V(N05)  ,IUPPER(N05) 

01 HENSI ON  P J (NOD ,XJ(N04)  , SO (NOB ) ,S1 (NO  C) ,B(N04,N04) 
IF(ITKACE.GE.1)HRITE(6,1C02» 

DO  1001=1, P7 
IF (I.EQ.HP1) GOTOIOO 
SC (I)=-3IGN 
SI ( I )=6IGN 

ice  Continue 

UO150IPOS=l,L10 

KINO=NSV(IPOS) 

001101=1, H7 
lie  PJ(I)=O.C 

CALL  GET  COL  ( NZ ,NP , IR, I A , IS ,TC ,RHS,C2,C1 , PJ ,NDl , N02 ,N03 ,NU4 ,N05, 

1 KINO, NZEROS) 

001301=1, H7 
Ql=Q.O 

00 120 Jl=l ,N2ER0S 
J=IS ( J1 ) 

120  Ql=ai  ♦ B ( I , J > *PJ ( J ) 

U1=Q1  ♦ 3(1 ,HP1»* fJ(MPl) 

IF (IPHASE  .tQ.2»Ql=Gl  ♦ B ( I, MP2) «P J(HP2) 

IF (I  UPPER (IPOS) .EC.1)Q1=-Q1 
130  XU (1 1=01 

' 1F(XU(HP1).LE.EFSI)XU(HP1)=3.0 
001501=1, M7 
IF(I.EQ.MPl) GOT  0150 
IF (A8S ( XJ ( I) ) .LE.EPSIIGOT C150 
XO  =XU (HPl )/ ( -XJ ( I ) ) 

IF (XU(I).LT.EPS1H)GOT0140 

C SO(I>  IS  THE  PAXIHUP  CVER  X(I,J).GT.O  OF  THE  REOUCEO  COST  01VI0E0 
0 BY  -X(I,JI. 

IF(XO.Le.SC  (IHC0T0153 

SO(I»=XO 

GOTO150 

C SKI)  IS  THE  HINIHUH  CVER  X(I,J).LT.O  OF  THE  REOUCEO  COST  OIVIOEO 
C i>Y  -X(I,J>. 

mo  IF  (X0.GE.S1  (I))  COTO150 
Sl(I)=Xi 
150  CONTINUE 

IF ( IOUTPT .LE. 2) RE  TURN 
WRITE (6,1000) 

DO  1601=1, M7 
IFII.EQ.HP1  )GOTO160 


SLOPOCOl 
SLOPOOU  2 
SLOPOGC3 
SLOPOCOL 
SLOP0005 
SLOPOOO  6 
SLOP9C07 
SLOPOOO 6 
SLOPOOO-) 
SLOPOOU 
SLOPOOU 
SLOPOC12 
SLOPOOU 
SLOPOOl 4 
SLOP0515 
SLOPOClb 
SLOP0C17 
SLOPOC1B 
SLOPUC 19 
SL0PJC2G 
SLOPOC21 
SLOPOC22 
SLOPOC23 
SLOPOC24 
SLOPOC  25 
SL0P3C26 
SLOPOL  27 
SLOPiC  28 
SLOPOC29 
SLOPOC 30 
SLOFOC  31 
SLOPOC 32 
SLOPOC  33 
SLOPOC  3 A 
SLOPOC Ji 
SLOPOC  3b 
SLCFC: 37 
SLOPO  0 33 
SLOPOC  39 
SLOPOCLO 
SLCP0041 
SLQP0C42 
SLOPOC*.  3 
SLOPOC*.  A 
SLOPOC45 
SLOPOC46 
SLOPOC  *.7 
SLOPOC48 
SLOPOC49 
SLOP0C50 
SLOPOC51 
SLOFOC52 
SLOP0053 
SLOP005*. 
SLOPOOS5 
SLOP0056 
SLOPOOE  7 
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EXHIBIT  4 (Continued) 


WRITE  (6»iQQl)18V(X)fS(.(I)fSl<X)  SLOP005* 

160  CONTINUE  SLOP0059 

RETURN  SLOP0C60 

1000  FORMAT  ( 1HQ  ( 2X  • SH  BASIC  »11X»<»HLEFT|  12X  1 5HRIGHT  / SLOPOS61 

1 1X,#MVAHIA8LE,9X,5HSL0PE,1IX,5HSL0PE//)  SLOPOC62 

1001  FORMAT (3X,I5,3X,E15.6,2X,El5.6)  SLOPOC63 

1062  FORMAT C12H  *****SLOPES»  SL0PJC66 

ENO  SLOP0065 
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EXHIBIT  4 (Continued) 


SUBROUTINE  TIHEC  TIME0001 

C PRINT  THE  ELAPSED  TIHE  SINCE  THE  BEGINNING  OF  THIS  JOB.  TIHEC0G2 

COMMON/Pl/N.H, ITYPE,NSTRAT,X00RL1,NBWRL1,NTITE1,N00RL2,NBVRL2,  TIMES CG3 

1 NTITE2,MXLIST,LISTOP,ITAPE,IFB,MXITER,MBINW,IOUTPT,  TIME j <# 

2 I TRA  CE  » MSTART ,TIMil,TOL 1 » T0L2»PC8U8» ALPHA (1 6)  TIMEOECS 

C0HM0N/P2/EPSI ,EPSIM, 8IGN,BEGTM ,M1 ,M2,M3 ,M4tNi , MP1, MP2fNM3,NMlN2,  TIME  0GG6 

1 NM1M3,N1P2,NP1,NSUM,NTC,M10  TIME0C07 

IF ( ITR ACE •G£«1)HRITE(6|1J.1)  TIMCOGC8 

CALL  SECOND  (X)  TIME3J09 

X*X-BEGTM  TIME0C10 

WRITE  (6|1300)X  TIHE'_.ll 

RETURN  TIME  0 C12 

1600  FORMAT (7H0TIME  =»F9.3,8H  SECONDS)  TIME0G13 

1001  FORMAT  <11H  *****TIM£C)  TIME0C16 

ENO  TIMEitklS 
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